H DE 6502 KENCRS « 



EEN CLUB VDOR eSxx GEBIUIICRS » DE 6302 KENNER M 



EEN BUffi VOOR 69xx 8EBRUIKERS 




De vereniging heeft leden in Nederland. Btlgit. OuiU land, 
Frankrijk, Sparge, Portugal, flwrika, ZaMbia. Het doel van 
de vereniging is: het bevtrderen van de kennisuitNiBseling 
tttsien gcoruikert van 6S»x-CMputert, zoali KIN, JUNIOR. 
OlMMME-fiA. fVPLE. OE-1. PEMCON, niN-€S, SYN. PET, BBC 
ATARI, VIC-26, WBl^ 106, taN-coiputen, in-i(ttO, OSI. 
ACC 6000, ACORN ELKTHGN. SYSTEM 65, PC-lOO, PALLAS. NINTfl 
FORMOSA. ORIC-1, STARLIGHT, CV-777, ESTATE III, WtO/a, 
NCS 6502, KEMPAC Syster-4, Elektuur SANS0N-6S DOS 
ceepttter, LASER, etc., etc. 

De kerniiMitMiiieliiuMordt o.a. gcrealiieerd door S Mil 
per jaar DE 6502 KEMER te publicertn (1964 en 1965 6 aaal 
zonter kontributieverhoging), door htt houden van clubbij- 
eenkoMstcn, door het imtandnouden van een cattetti-bibll- 
othitk en door het verlenen van papentarc-tervice. Regio- 
nale bijeenkoMten Mrden door Itden georganiieerd. 



Verschijningsdata 
DE 6502 KENWER 19 85 

dcrde zaterda9 van 

februari, april, juni, 
augustus, oktebcr, dccetber. 

Inlichtingen ever de regio- 
bijeenkosaten: 

Gerard van Roekel 

Van der Palettraat 11 - C 

3135 LK Vlaardingen 
Tel. : 010 - 351101 



Bijeenko«sten van de club 

derde zaterdag van 
januari. Mart, eel, 
•epta«ber, noveeber. 

Redaktie-adres en inforea 
ties over papemare etc. 

Hillee L van Pelt 
Jacob Jordaentstraat IS 

2323 CK Kriwen/IJssel. 
Tel.: 01B07 - 19681 



De vereniging is volledig onafhankelijk, is statutair 00- 
gericht en ingeschreven bij de Kaeer van Koophandel en Fa- 
brieken voor Hollands NoorderkMartier te Alkaaar, ondcr 
nuMer 63430S. 



Voorzitteri 

Rinus Vlccsch-Dubois 

Fl. Nightingalestraat 212 

2037 NG Haarlee 

Tel. : 023 - 330993 

Penningeeester: 
John F. van Sprang 
Tolp 71 

2925 EU Kriapen/IJssel. 
Tel. ( 01107 - 20089 



Sekretarisi 
Bert Klein 
DiedeflHeg 119 
6706 CM Uageningen 
Tel.: 08370 - 23646 

Redaktie DE 6502 KEWCR: 
Nil lee L. van Pelt 
Jacob Jordaensstraat 15 
2923 CX Kriaoen/IJssel. 
Tel. : 01807 - 19881 



Ledeni 
Adri Hankel 
Eniin Visschedijk 

Nico de Vries 
Erevoorzittert 
Ereleden : 

Lideaadschap : 



Lide.schap 86: 
Advertent ies : 



(05490 - 51151 ) Hardnare/softNare 
(06490 - 71416 ) HardMare/softMre 
ProMtie 

(010 - 502239) Hardtiare/softNare/PET 
Siep de Vries 

»t. H. de Vries - Van der Hinden 
Anton Nueller 

IFl. 45.* per kalenderjaar, postreke- 
ning 3757649 t.n.v. Penningaeester KIN 
fiebruikers Club Ned., Kriapen/IJssel. 
Te voldoen iiiterlijk in deceeber 1985. 
Tarieven op aanvraag bij de redaktie. 



DE 6502 KENCR Is w&n ultgivi van dt KIN Btbruikcrs Club 
Nederland. Het blad Hordt verstrekt aan leden van de club. 
DE 6502 KENNER Nordt van kooij voorzien door leden van de 
club, bij de ooeaak van een publikatie bijgestaan door de 
redaktie. De inzendingen van program's dienen vorzien te 
ziin van kaaaintaar in de listinos en zo aogelijk door een 
inleiding voorafgegaan. Publikatie van een inzending bete- 
kent niet dot de redaktie of het bestuur enioe aansprake- 
lijkheid aanvaardt voor de toepassing ervan. De inzendingen 
kunnen geschieden in asseeblv-source-listinos, in Basic, in 
Baiicodf, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden schrijven 00k artikelen over de door hen ontwikkel 
de hardware en7of aanpassingen daarep. Zij schrijven tevens 
artikelen van algeecne aard of reageren op pubhkaties van 
andere inzenders. 

DE 6502 KENNER IS EEN BLAO VAN EN DOOR DE LEDEN ^ 

Nicro-AOE AssMblcr/Disasseabler/Editor is een produkt van 
Nicro Uare Ltd., geschreven door Peter Jenninos en bestead 
voor alle 6S02-coaputers. De KIM Sebruikers Club Ned. heeft 
de copyrights verwrven nadat ons lid Sebo Uoldringh de 4 K 
KIN-1 versie uitbreidde tot S K KIN-1 versie. Adri Hankel 
paste deze aan voor de JlffilOR. Uillea L. van Pelt stelde 
een nieuNe 8 K source-listing voor de J19II0R saaen. 
De iapleaentatie od andere systeaen dan de KIK-1 en TJHIOR 
kan eenvoi¥lig gebeuren door het aanaassen van de I/O-adres- 
sen, Nelke in de source-listing geaakkelijke te vinden zi.]n 

FATE Foraat-lister/cond. Asseabler/Taoe-utilities/Editor is 
de door ons lid Rob Banen ceschreven source-listing van een 
12 K universeel systeea voor de JDNIOR-coaouter aan de hand 
van het universele disk ooerating systea van de fa. Proton 
Electronics te Naarden, nu oescnikt voor Herken aet tages. 
FATE Nordt beschikbaar gesteld aet toesteaaing van Proton. 

In de edities van DE 6502 KENNER Horden regelaatig aedede- 
linoen oedaan over de door de club georganiseerde bijeen- 
koasten.' Ook Morden bestuurlijke aededelingen gedaan, naast 
inforaaties over hetgeen in de handel te kooo is. Leden die 
lets te kooo hebben of iets zoeken kunnen dit in de edities 
van DE 6502 KENNER bekend aaken. Ook worden Mel brieven aan 
redaktie oeoubliceerd, evenals soecifieke vragen van leden. 
De edities Mrden sa a o n q esteld od basis van een yroot aan- 
tal prioriteiten, Nelke'door een redaktievergadenng Morden 
gehanteerd. Deze veraadering bestaat uit de vaste aedeiter- 
kers zoals in de coloFon veraeld. Het aantal inzendingen is 

?roter dan in een enkele editie van ainiaaal 48 pagina's is 
e venierken. Hierdoor kan het voorkoaen dat een inzending 
eerst na enige tijd kan Morden geoubliceerd. M 

DE CLUB lEEFT BEHDEFTE AAN NEER LEDEN. UIJ UILLEN NEER AAN 
iaJMCN BIEDEN DAN NU AL lET GEVAL IS. UERF DAARON EEN LID! 



HILT U EEN PRIJSLIJST? STUUR EEN 6EFRANKEERDE ENVELOP 
m REDAKHE-ADRES. 



AAN 



Een onafhankeliike jury kent jaarlijks een aantal aanaoe- 
preaies toe aan auteurs van geoubliceerde artikelen 
KEMCR. 
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■b 6502 KEMO ism 
vitgm van de KIN gebrai- 



Mres vrar het 
van en reakties op artite- 
len vnr DE 6502 IBMSh 
UillM L. van Pelt 
Jacob Jordaensstraat IS 
2323 GK KriifKR a/IJtwl 

Mm* ma "mm 

¥Hie ■tdBMerkent 

Hillci L vm Mt 
Gerard van Rwkel 
Frans SMehaijzen 

Freelance eedeNerkers: 

Frws Baki 
Rab Banen 
Fridus Jonkaan 
Gert Klein 



Men 
BWt van 



T Langeveld 
nten miller 
OMiraek 

I Upiwff 



PHMSOPaWE DE 6502 KEWB MB. 41 BEHMER 1985 
i. UitMdigiii MjMkiMl 

3. D0S65 Camer 
... Caen Kleipnl, France 

4. Basic tekitcditar 
BaiicprtgraMa op de OHIO HB JMOR 
. . . Naarten van Hintua 

5. Screett^itor V3.0 (SCflED 3.0) 

Em Khereredafcteur voer Basic of Coaal 
VMr EId[twir'f JUNIOR co^wter aet VDUHuart 

ii, Graphics in flopleseft 

... Hm Boscn, TMente University of Tecinology 

7. Aanaoedifingspreaie artikelen 1984 

... Fred Hartiwom, Sebo iloldringh en Anton Nnller 
voraden de jary die de praaies toekende am 
:^J*IU Jmim m% KMpNl ■ 



2. 

3. 
4. 



■ -F J* 



IS. 
29. 

achterblad. 



Gebele of gedeeltelijke 
ovemaae van de inhoud 
van OE 6502 KENER zonder 
toesteaaing van het be- 
stour is verboden. Toepas- 
sing van gepvbliceerde 
prograaaa's, hardMare etc. 
IS alleen toegestaan voer ' 
persaonlijk gebniik. 

OE 6502 KENER versdiijnt 
6 I per jaar en heeft een 
oplage van 500 exeaplaren. 

Cafyriglit (C) 1983 KIN 
BiMWim Qvb NMvrland. 



De voorpagina is een aqua- 
rel van een KIN, gesdiil- 
derd door: 

Rimts VIeesch Oobois. 

In verband aet auteursitet- 
oeving en andere aaatrege- 
len op het gebied van be- 
scheraing van softitare 
kan (te rcdaktii geen aan- 
sprakelijkheid aanvaarden 
voor inzendinoen. 
Inzmdingen dienen afkaa- 
ftig te zijn van de inzen- 
■•■r, toBij anders 



1 :nH;ir 



Jaap van Toledo, lid van de rsdakticvergadcring, heeft het redaktieiierk aoeten 
beeindigen. Jaap heeft het te dnik airt prive en stodie. Zijn aedeoerking aan 
vergaderingen kenaerkte zich door de rust itaaraee zaken onder de loupe naa, er 
oog voor hebbend dat de vergaderingen aeestal Nat roaaelig en ruaeerig en lang- 
durig verlopen. Het gezelligheidsdier oveniint soas de drift oa strak en door- 
tastend te vergaderen. De gastvrijheid die itij bij hea thuis hebben genoten is 
is van craciale betekenis gmeest voor het goede verloop ervan, en niet in de 
laatste plaats te danken aan zijn vrooM. Ik heb bewndering voor het feit dat 
zij niet nerveus nerd van al dat ge-abacadabra over bitjesgeaier aangaande de 
de digitale logica rand de krachtige instraktieset van een uiterst geavanceerd 
processorortMerp en de additisnele hardmre daaroahee n . Naar Jaap liet zich de 
Ni IS niet afbrengen als tassen het pobliCHrbaar Hteriaal een listing zat van . 
Heike gezeod kon iiorden dat er nog mh ||M ini,M|llNk. Ik zal die opairkingt- 
eest van hea niet licht vergeten. ■ n 



vergeten. 

ik jvUii vMrf liBB ^Mti het biilc ti 



ans alien. 



mmimmtmmmmnimammam 



OOrr FORGET TO PAY IN OECBKR VDUR 1986 GUBSCRIPTIW 

npi flF NR. H.L WN par 



>i 
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Dat uiiii 



Reisroute 
per auto t 



UITNODIGING 
B I J E E N K 0 M S T . 

zaierdag 18 januari 1986 "'?!:l|f^^0£: FL. lO/OO 

nieuwe kantim FORBO-KroMMmia „»^^>. 
IndustrieMeg It tw Aravn^lft. T«l. : 073 - 280600 



per trein « - 



lit de richting Amsterdam 
^l«ln«irhiT email aTrijBin. Bin 
het Bind rechtsaf (water aan linker 
zijde). Dan le afslag rechts rich- 
ting Uitgeest - ftlkmaar. Doorrijden 
tot stoplichten. Linksaf spoorbaan 
dv«p. Na 75 meter linksaf = Indus- 
tHitweg. Links aanhoudende ko«t men 
op het FORBO-Krommenie terrein. 

liMOMi uit de richting 9i!<!!!|i£ 
irwlweg Olkmaar - Haarlem, flfslag 

af spoorbomen over. 
Na 75 meter linksaf = Industrieweg. 
Lii3k« mmHouiimniim komt men op het 
FiaPiH^ro«iMmi« t«rrein. 

Station Krcmftenie - flssenctelft. 
Rechtsaf iet over spoorbomen. 
Na 75 meter linksaf = Industrieweg. 
Links aanhoudende komt men op het 
FORBO-Krommenie terrein. 



SSSS&'-S'SSS S S SS S 

09.30 
10.00 



- Zaal open, ontvangst met koffie. 

- Opening door voorzitter en ver- 
welkoming door de gastheer Co 
P'il^sr. , 

10.30 - Behandeling Jaarverslag 1985. 

10.45 - Doorlopend draaiend 68000 Netwerk- 
systeem onde%J^)(»v, 
Inleidingert iSwrUrtlx mn *C'- 

11.45 - Koffiepauze 

12.00 - Forum 

ftansluitend lunchpauze. 

13.00 - mmi. leder die lets aan te bieden 
■noo. heeft koYKligt (ML^irfMlk 

13.15 - IirORMEEL GEDESLTE, . . ^ ^ 

In dit deel kuiialliD «lle leden hun 
zelfontwiMil^f A^ial i ja re en soft- 
ware demonwFwwNfn. 

Het illegaal gebruik en het kopieeren 
van software waarop enige vorm van 
auteursrechten rusten is op onze M' 
eenkomsten ten strengste verboden! 
BRENG UW EIBEN SYSTEEM l«EE ! ! ! 
Het aanbieden van overbodige spullcn 
is op eigen tafeKsJ te regelsn. 
17.00 - SLUITING. 




® 



Portier 

Portier 
Portier 
Gateman 
Portero 



Ontvangstcentrum 

Salle de reception 
Empfangsraum 
Reception building 
Sala de recepcton 



Kantoor 

Bureaux 
Buros 
Offices 
Oflcinas 



Centraa( magazijn 

Magasin central 
Zentrallager 
Central warehouse 
Almsiedn central 

■nCMKatnverb. Ainsterdam-Alkmaar(half uurdlenst) 

Di6fflin^f6*AfflSterdam-Alkmaar(toutes les demi-heures) 
Eisenbahn Atn^dajn-AIMmaar (jede halbe Stunde) 
Rstthvay AmstwitoW'AlisirSa^Chalf hour service) 
Ut«S9 terroviaria AiffiSlMl8Ri-AtRmaar(cacla media hora) 

(6) RDRBO-KROMMENIE0\/ 

INDUSrmiEWEG 12 
JP ASSENDELR- HOLLAND 
0 075-280600 



2; 
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Seen editie gaat voorbij of de sa«enstelling ervan blijkt 
een hele opgave. Het streven is er steeds ep aericMf allc 
leden van onze club zoveel •ogelijk tevreden It iNllliii. 
Dat valt daarn niet aee, oadat zij het in iirtte 
plaats zijn die eoeten zorgen dat het aateriaal evmr in 
de copy-buffer aarwezig is. Uillen Me ieitereen tevreden 
stellen, en zouden tie daarvoor tot aateriaal hebben, dan 
j^t het aaxiaui aantal pagina's je Neer beperkingen op. 
Be hoeveelheid artikelen is dan groot, het aantal pagina^s 
per artikel klein. Wat doe je dan aei sfvangrijke artike- 
len? nis je ze plaatst, dan Mordt de variatit-aogelijkheid 
kleiner. Theoretisch zou je uit kunnen wi^ken naar de pa- 
pertta re-service. Haar, is dat praktisch juist? He zijn van 
oordeel dat m in de eerste plaats meten trachten alle 
inzendimien in de edities te publiceren. De consequentie 
daarvan is, dat in het geval van otvangrijke inzendingen 
dan nog nadrukkelijker gekeken aitet Morden naar de kNali- 
teit van de artikelen. , 
In deze editie denkt de redakfnPtnn geslaagd te zijn een 
editie saaen te stellen die, voor Nat betrert het afptkt- 
kNaliteit, zeker represencatief is voor Mat in onze club 
alleaaal aogelijk blijkt. De hier aangeboden routines vra- 
gen de aandacht voor zeer leerzaae zaken. Wie dit niet 
entgaat, zal de beperkte hoeveelheid artikelen niet als 
starend ervaren. 

Het bestuur is al geruine tijd bezig aet een bezinning op 
de toekoMSt. Dat is niet alleen een verdienste van het be- 
stuur, het is ook een noodzaak. Centraal staat de gedachte 
dat het toch eigenlijk wel een beetje van de gekke is dat 
Me ledeiS de club aoeten zien vertrekken oadat zij zich 
aangetrcditn voelen tot de uitdaging oa ook van en aet an- 
dere prooBSSoren kennis en ervaring op te doen. Vooral als 
het M e^ tifi^^kfuze oaat en bovendien nog oa 
mum dis iwr oin^lm' van bliivende betekenis zoudsn 
Imm tijn, tentijl je toch realistisch aoet blijven en 
ianslattrai tfet dat de toeneaende belangstelling voor an- 
dtort pro^soren niet .te stuiten is, is een bezinning op 
liet te voeren belftitf ien mittige zaak. En als je goed door 
iexkt^ is het niet aeer dan een consequent doortrekken van 
sen lijn die zich jaren geleden al begon af te tekenen. 
Uaren we eerst uitsluitend en alleen geinteresseerd in 
aachinetaal, via heel voorzichtige schreden op het gebied 
vm ifmht, kwaaen Me terecht in andere hogere prograaoeer- 
laM its FORTH, en COMAL en nu ook PASCAL, tentijl Me ao- 
gen verwachten 491 OA ,^,«(Pf|^SP§&^5y|t^ ook 
al 'C geiapleiim^'lMfMilM^Hinei^^ nodig 
hmft. Na^petaal Mordt daardoor niet verdrongen. Inte- 
l^iNi^I! mr juist ruiate te geven aan hogere prograa- 
aeertalen kun je ook latp oi^^m;f|i beperkingen er- 
aan verbonden zijn, naasiwiww^lwilfliiHi VM gebriikers 
vriendelijkheid. nachinetaal kei^ geen beperkingen, zelfs 
niet que gebruikersvriendelijkheid, Mant die bouN je er 
zelf in. Hoe gebruikersvriendeliik een hogere prograaaeer- 
taal ook is, er blijven altijd heel specifieke Mensen on- 
vcrvuld, die dan Meer aiddels aachinetaal Morden voorzien. 
1^ beitttur is aoaenteel van oordeel dat Me ons best ge- 
Miilllk aan breder kunnen en aisschien Mel aoeten op- 
#Mf«l v.M.b. de orlentatie op processorgebied. Eigenlijk 
li<tnr»R He niet been oa het feii dat een processor niets 
aeer is dan een funktie in een bepaald systeea. De Coaao- 
dore 64 bijvoorbeeld kent geen 6502^ aaar een 6510. Je 
ktitcl je dan nog vastbijten m het feit dat hii 6502-taal- 
eoapatible is. Maar zodra een bij uitstek 6502-aachine als 
de miE haar taak feitelijk verricht aiddels (niet: aet) 
mi IttL bljymiMilJf^V.j^!: CPN draaiende prograaaa's 
m m WmWMmrWSm geheuoen dHingt tot het 
Aruik van andere processoren. terMiji saaenMerking aet 
^DO nog een kHestie van voldoende dalende prijzen is, 
..... . doelstelling 



Si'MaI!^ ^ f ^^Hlr.H!!» ^J^. jpelftell ing 12K FATE 

Di kmzt M geleidelijk af te tasten Helke aogelijfc)Ki%n. Smd in 
er zijn in het gXCOXXI gebied, lijkt de enig juiste. vP. If ft 



Far Elektor's JUNIOR coMuter 
Qiiri( QfmAim %itet RBOS Kom m 

mmmtmrn m t" " " 



r/ip msirftfrnieii 

With outlines and coaaand suaiary. '^v 
Dutch version, published aug. 1%3 ]fi. 
English version ifL. 10.00 

Disk Operating Systea 0ffiflV2.0A v. NieuHenhove 
Introduction on the ^HOO 5' DOS Hith FDC 1770. 
With outlines and coaaand sinaary. 
Dutch version Mi. tO,# 

English version PL. 11.00 

Disk Operating 8y^ >PW^^>J*»iNgi ' 
The coaplete docuaentatim an ine wm y Vm 
Mith FDC 1770, a built-it-yourself project for 
Elektor's JUNIOR coaputer, easy to install on 
other coaputers for those Mho are faailiar 
Mith prograaaing in aachine language. Uith a 
teavely coaaented source-listing, patch-routi- 
nes to Mork Mith K6-9 Microsoft Basic, the as- 
fpabler of C. Moser and Pascal, the base BYTE 
articles, etc. Uith outlines coaaand suaaa- 

and introduction. English version HFL. 97,50 

Mt'fORTH for D(fiAV2.0fl 
FATE for D0SAV2.(M 
This Disk Operating Systea is iapleaented on 
the JIMIOR Hithout VDU card of H.L. van Pelt 
and others, also not B5XX coapatibles. Votfiiy" 
Mire-rap it on VEIffl board 10-05818. The con- 
troller is available: H.C.A. Tronix 

iMte du Condroz 513 
" #1200 LUIK, Beloiua. 
DATBflS, a database-prograa for the JUNIOR coa- 
puter Hith Elektor's VDU card and the OHIO OS- 
65D V3.3 disk operating systga, Mriltcn by Jan 
van Heuven, translated by FtMuMI WtfKi 1>er* 
tugal into English, IS p. HFL. 22.50 

FORTH-79 STfltffiflRD Mith definition of teres, 
required Mord set, extension Mord sets, refe- 
rence Mord set, handy reference card, etc. HFL. 20.00 
fig-FORTH 6502 flsseably Source Listing, relea- 
se 1.1, Hith coapiler security and variable 
length naaes HFL. 65.00 

fig-FORTH Installation Manual, release 1, Mith 
coapiler security and variable length naaes; 
also Glossary, Model and Editor HFL. 45.00 

FORTH-79 STANiWRD CWWERSION version 1.1 HFL. 20.00 

fig-FORTH Source listing for Elektor'i JONtOR- 
coaputer Mith Proton's Senior D.O.S. HFL. 48,50 

ASM65C e(C)XXX-Cro5s-flsseabler for JUNIQR- 
coaputer Mith Proton's Senior D.O.S., vers 1.0 
Developed by Rob Banen Hith the FATE asseabler 
English version. Area! $3000-$486fl. 58 pages. HFL. 57.50 
DISASSEMBLER FOR THE ROCKWELL 65(0 02 for the 
JUNIOR coaputer Hith Proton's Senior D.O.S. 
Developed by Rob Banen Hith the FATE asseabler 
English version. Area: $2000-$2477. 10 pages. HFL. 15.00 
Micro-ADE 8K Asseabler/Disasseabler/Editor for 
use Hith any 6502 coaputer Hith 2 tape-recor- 
ders (reaote control). Very popular in our 
club on Elektor's JUNIOR coaputer. Parts of it 
Here used in EC65 and KTOPUS coaputers. 
Manual, based on 4K KIN-version, Hith coaaatd 
suaaary of the 8K version. Eng.'ish version. 
Heavely coaaented 8K Micro-ADE source-listing, 
English version. 

FATE 12K Foraat Lister/flsseabler/Tape utility/ 
Editor for Elektof»# .Mliaw ca^tttw Mithout 

VDU card. 

Manual English version HFL. 35.00 

12K FATE source listing English version HFL. 110.00 



ffl. 
Ha. 



3S.00 

es.00 



mm tn Nr. W.U vw Pelt. Editorial Office. , 
latli eurdchequei HFL. T.SO ^ri transfers! ! 
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DIWFT KIM-KENNER ARTICLE. - « ..^h i£t( = bn ; v^ n^inn: f ^ isif* - 

-.s.a, L c-^/' ''.-Jr..; 

»«» DOS-65 CORNER »»« ' " ' ^.l y^- , • 

BY: com KLEIPQOL, m. DE PERIER, F-»taM -fOeSLIW. T.<33)«4-5443a2 " ^ ' 

TH6 0^4tA<ai • -■ --y^ ,• .. , . . .K .. .^H'.iA*..-, 

i; ••hLi 

IN THE FIRST ARTICLE OF THIS SERIES m DOS-65 I BRIEFLY MEN-;, ^{l"^ 
TIONEO THE EDITOR, WHICH WE WILL NOW EXAMINE MORE IN DETAIL. tht.' -'r^i.*.^: 

IN FACT, THIS EDI TM ft 80 ©CE®ISiyE, TWftT I CWitD iAS|i,Y fXLL SEVE- 

RAL PAGES. iss^flj;* 

TO ANSWER THE OBVIOUS QUESTION RIGHTAWAY, AN EDITOR SHOULD j!; 
COME WITH DOS-65 TO ENSURE A PERFECT COORDINATION BETWEEN WRITING ^ ^ 

AND FILING AND TO MAKE SURE THAT RE-EDITING A FILE ALREADY WRITTEN 
ON DISK HAPPENS SMOOTHLY. THE FILE IS READ FROM DISK INTO MEMORY, uih . 
CHANGED AND WRITTEN BACK IN SUCH A WAY THAT YOU HARDLY REALISE YOtf 
ARE DEALING WITH A DISK-FILE. THEREFORE DOS AND EDITOR SOFTWARE^', - n''-,- ' > 
SHOULD BE INTE6IWTED. ■:'9b - • .' 



*1 J." 



"r I, 



, MOST OF US WILL PROBABLY HA"v>E A LINE EDITOR INCORPORATED , 
IH' iMfiyiiN^M^RE. PERHAPS THIS IS A QQOD r-mW^M'^ X n 

"a fPl.mifflONS ABOUT EDITORS TO NEWCOMERS. 

A LINE EDITOR STORES THE FILE IN MEMORY IN LINES, EACH LINE 
BEING OPENED BY A LINE NUMBER AND CLOSED BY AN END-OF-LINE CHARAC- ''.'^ 
TER. IF YOU WISH TO CHAh-JGE A LINE, YOU FIRST HAVE TO GO INTO COM- 
MAND MODE AND TYPE IN THE LINE NUMBER. THE CCSiPUTOR WILL THEN SEARCH 
THROUGH MEMORY FOR THAT LINENUMBER AND PLACE THE LINE IN A BUFFER 
WHERE IT CAN BE EDITED, AFTER WHICH THE LINE IS PUT BACK IN ITS PROPfR 
PLACE IN MEMORY BY USING ITS LINE NUMBER. IF THE EDITED LINE IN DIF-'' 
FERS«fT IN LENGTH, THE COMPUTOR MUST TI^N PERFORM SOME BLOCKMO'v'ING. 

ALL THIS CAN BE USED, BUT IS NOT ^^ERY PRACTICAL. REAL TROUBLp. 
STARTS HOWEVER IF YOU TRY TO MOVE A BLOCK OF SOURCE TO A DIFFERENT ' 
LOCATION IN THE FILE. THE FIRST TIME I DID THIS IN MICRO-ADE, I 
THOUGHT MY COMPUTOR HAD BROKEN DOWN ! IT TOOK HIM MORE THAT 28 MINU- 
TES TO MOVE 30 LINES, AMPLE TIME TO GO DOWN TO THE LOCAL BISTRO AND 
HAVE A DRINKt ' >*»m.>r,-f^ >. I'-f «tv '.w ^« j, . 

YOU WONT HAVE THESE PROBLEMS WITH A FULL-SCREEN EDITOR. THE 
FILE IS WRITTEN IN MEMORY AS A CONTINUOtllaiWi^iS AND THE SCREEN U ^ 
WINDOW WHICH YOU CAN PLACE ANYWHERE OVER THE FILE TO READ A PAGE. 
YOU CAN SCROLL UP ^>ID DOWN AS IF YOU ARE READING PAGES OF A BOOK. TO 
CHANGE THE TEXT, JUST PLACE THE CURSOR OVER A CHARACTER AND DELETE OR 
INSERT. 

ANY EDIT COMMAND IS EXECUTED BY MANIPULATING THE CURSOR, WHICH 
It MNKie i¥ S^iyARE TO THE IHA6INARY CURSOR lit tlli 141^0'^ 
RY. 

I HAVE USED THE DOS-65 EDITOR FOR SOME TIME AND I AM STILL IM- 
PRESSED BY ITS MANY FACILITIES. IT C^ BE USE© 'AS ft ttC^i l*Rltttl3i,w-^if 
HAVE A LOOK AT THE FOLLOWING COMMANDS! ? 
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PASTE: 

SEARCH & CHANGE! 

MACROS 
FILL: 
SFlUi 



ALLOWS TO PUT A PARAGRAPH OF THE FILE IN PASTE-BUFFER 
AND INSERT THIS PASTE IN ANOTHER PART OF THE FILE; 

AFTER YOU HAVE Df FtNtd A SfiftRCM Pm A m$m- 

mmm, im computor will search trough memory and : 

REPLACE THE SEARCH -STRING EVERYWHERE BY THE CHANGE 
STRING. 

THE PROCWtl CAN LEARN A STRIM© jOF EDIT-CDHMANpS WHICH 

CAN BE USED MANY TIMES OVER. 

REARIWfiES THE LINES IN SUCH A WAY THAT EACH LINE BE- 

INSERTS SPACea TO, PROVIDE A STRflI©HT RI6HTHAHD EDGE TO 
THE TEXT. 



NEEDLESS TO SAY THAT ALL THESE FACILITIES MAKE THE DOS-65 EDI- 
TOR ALMOST A WORDPROCESSOR. BUT THERE IS MORE, THE REAL PURPOSE IS OB- 
TAIN A POyiRFUL TOOL tO WRITE SOURCE WHICH CAN BE USED WITH SEVERAL 
ASSEMBLERS. THIS IS NOT TOO 08MI0US AS EACH AS8EHBLER MSES A^; DIFFERENT 
SYSTEM. >..,-.. 

AD iROttiJER HAS WRITf0< A CONVERSION PROGRAM FOR BOTH MOSER AND 
MICRO-ADE WHICH MAKES THIS POSSIBLE. YOU HAVE TO WRITE THE SOURCE IN AC- 
CORDANCE WITH THE MOSER OR MICRO-ADE FORMAT <AS FAR AS SPACES AND TABS 
m eOT THiRf IS no need to worry about L!NEMI»^RS or BiD-OF-LfHE CHA- 
RACTERS. IF YOU USE THE NEW "GET" COMTIAND IN M©^, LINENUMBERS AND ENO- 
OF-LINE CHARACTERS WILL BE AUTOMATICALLY INSERTED IN THE MOSER SOURCE 
BUFFER BY THE CONVERSION PROGIWM. THE fTOSER OR MICRO-ADE LINE-EDl'rt»R fB 
NO LONGER USED. 

TO DEBUG, THE SOURCE IS RE-EDITED IN DOS-65, AFTER WHICH YOU CAN 
MAKE ANOTHER ATTEMPT Ti ASS01BLE. IF MOSER SHOWS AN ERROR MESSAGE IN A 
CERTAIN LINE, D0S-6S CAN JUMP TO THAT LINE NUMBER ALTHOUGH IT WG^r^ SHOW 
THE ACTUAL NUMBER. 

THE »Hft4* rtlJSER ALSO MAS SPECIAL COMMANDS FOR DOS REDIRECTS, 
THE INPUT REDIRECT MAKES IT POSSIBLE TO PUT ALL THE ASSEMBLY COMMANDS 
IN ONE INPUT FILE; RUNNING THAT FILE MAKES ASSEMBLY AUTOMATIC. 
AT THE SAME TiME THE ASSBIBtED LiSTm© IS WtlTTm ON THE OOTfHJT FILE , 
FOR FURTHER PROCESSING. YOU CAN IMAGE THAT IS IT QUITE A THRILL T0 WOftK 
WITH THIS PROFESSIONAL SYSTEM ! , 

THERE IS A LOT MORE TO TELL, BUT THAT lEYQHO THE S€iFi UF 

AN INTRODUCTORY ARTICLE. I SUGGEST THAT YOU HAVE A GOOD LOOK AT DOS-iS 
AT THE NEXT KIM-CLUB MEETING ! 



NEXT ISSUE? 



D0S-(55 MEMORY MAPPING. 
A D0S-<S5 DISASSEMBLER. 



4651 CHARACTERS, 96 LINES. 




5WAP 
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Basic teksteditor by M.R. van Hintmn. ■ 

^ MolborqeniBate 13Qk . , . 

" 7006 PL Doetinchet» ' " " ' 



Deze teksteditor is geschreven in Hi cro^.of jl; _8as:i C en :|riait bij 
inij op de OHIQ-DQS-Juni or . 

De origineie' Basic is met bepaal'de instructies uitgebreid die ik 

later :al verklaren en waarvoor ik equivalente instructies 

zal geven, die waarschi jnl i jk in elke andere Basic voorkonien.. 

ijisic Weeft een nadeel wat betreft de snelheid, doch is naar ieders 

wens inakkelijk aan ts passen. Waar het mogelijk was heb ik Zoveel 

•ogelijk met de snelheid rekening gehouden. 

De voigende ins'tructie en/o* lellerS kmHH «dor : ^ 

A - INV. 
B - STO. 

C - DOS. , - , 

0 - DIS. 
E - DIR. 
F - DEL. 
6 - CNT. 

H - INS. ,. ' ' 

1 - HQV. , , 
J "" SCE,. 

K - EDI. 
L - EIN. 
M - »XXY 

N - #xx« : , ' 

P - SPC= 

s - 6yT= 

a: ■ ■ ' ^ : 

INv. staat voor invaeren van tekst (zie oak !1,N en Q). 

Hierbij verschijnt links in beeld het regelnuminer. 

tfiiest km iflffigeven worden, totdat de input-buffer vol "is. 

B. . 

STO staat:^va'&r- stsppen en betekent alleen aan het begin van een 
rtfti'i dat de invoer van tekst afgesloten aoet worden. 

DOS staat vp^or Doe Out System en betekent, dat de aanwesiqe tekst 
in een file op diskette weggeschr even wordt, waarvan eerst de naara 
opgegeven dient te worden. 

D. 

DIS staat voor Doe In System en betekent, het tegenovfrfestelde als 
punt C. 



i. ■ 

DIB fStft een directlonaire van de geselecteerde diskdrive. 
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DEL staat 

is, wordt het blok reqpls tu^sen deze waarden uit de tekstfile ver- 
wijderd. 

B. _ , ■ 

CNT staat voor continue. Wanneer men de aanwesiqe tekst-file wil uit- 
breiden met meer regels dient voor invaeren van tekst dit coinmando 
gebruikt te worden. 

Hierbij verschijnen de laatste 3 regels van de uit te breiden tekst 
boven in het scherra, :odat men weet wat de laatste tekst was. 

H. 

•INS. staat voor insert. Hierraee kunnen regeis tekst tussen gevoegd 

worden. De laaste 3 regels verschijnen boven in beeld* 

Eike nieuw ingevoerde regel is de laatste van deze 3 regels. 

Bij het gebruik hiervan dient het regelnummer opgegeven te worden, 

waarna tussengevoegd moet worden. 

I. 

MQV. staat voor move. Dit commando verplaatst een blok tekst voor 
een in te geven regel numraer . Voor het blok dient een begin- ffn een 
eind^egel in gegeven te worden. 

'V ' ■ ' . 1 "I 

i. 

SCE. staat VDor scanen. Dit commando zoekt in de teksttile naar 
een op te geven stuk tekst. Wanneef* ilt fe^effteft is wfschijnt het 
regel nuffldter links, de reqel tekst, en rechts op weJke positie in 
de regel het begin van de string gevonden is. 

K. 

EDI. staat vaor teksteditor. Hiermee kan een string door een ander 
string vervangen worden. 

Dit kan voor de gehele of voor een gedeelte van de tekst gel den. 
Wanneer dit geldt voor een gedeelte (wat natuurlijk sneller gaat) 
geldt dient het begin- #n Wet ei ndr iff ilrtuStftef ' i^.|tg even te worden. 
Ook is dit een handig coiTimando om steeds ter ugkomende tekst eerst 
in te geven door een bepaald karakter, waarna met dit caiTnriandQ dit 
bepaalde karakter veranderd wordt door de steeds terugkomendft tekst. 
l.v. de string ''MINISTERIE VAN CULTUUR EN WETENSCHAPPEM ' ' wordt 
eerst ingegeven als 'XX', waarna met het commando EDI alie vaor- 
kofflende strings worden veranderd in ' 'MlStSl *#«t. ' ' . 

i. , ' - 

£IN. staat voor einde van het prograffiffla en kotcit terug «fet fl OK- 

promt van iasic. 

«. 

{#XXY staat voor XX maal het karakter If. B.v. «10# vult een regel 
met 10 maal het karakter # . 

N. 

(«XX# staat voor tab';XX5. B.v. #10#Halla betekend dat Hallo op de 
IG-e positie in de regel wordt gezet. 
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0. 

' betekend, dat voor het ingeven van een regel , waarvan de eerste 
karakters spaties zijn deze regel vooraf dient te worden gegaan 
door aanhal ingstekens. Deze zijn alleen laaar sof twareiaatig nodig, 
daar Basic leaaingspace niet 'ziet' bij input. 

P. 

SPC= staat voor diskspace en is een teller hoeveel trails* 
ttmiqe tekstfile in de OHIO-DOS inneeffltt. . 

* I * »■ 

i. 

BYT= staat voor aantal bytes dat de tekstfile lang is. Met aantal 
aanslagen plus de CR's en LP's. 

R. 

UIT. staat voor uitvoer naar zowel beeldscherii els prin^BT .y^iD? ae 

De printerinstructies gelden voor een Epson RX-80F/T. 
Hieronder vallen niet de instructies : 

-Autopaqeprinting. . *. 

- More copy printing. 

- Terug naar menu. 

- Printer test. 

- Start printer uitvoer. 

Enkele instructie en eventuele e 1 t er n at i even : 

- Poke's zijn niet noodzakei i jk , wel vervangen door RETURN. 

- PRINTS!<X,Y) "HaUu" ; 

print op de coordinaten X en Y de string ''Hallo'', 
te vervangen door : 

F0RA=1T0X: PtI»Tj BEXTrPRINTtAB(¥> ' 'HALLS' " 

- PRINTUSING -5 

print alle enen, tienen en honderdtai len ondfr i^lkaar. 

te vervangen door : , ^ 

I$=STR* (I) :PR|||lftt44-i|»^a*lit|' " " \ " , 

- .PBINTI (49)j ^ ; , , 
^0kt fiet fa«8idsctv#r« scliosn, , 

--^vervangen door : - , • =0 - 

'"FPX=1TQ24;PRINT:NEXT 

mask if . rest van het beel dscherai scho.on. 

- regel fSOO = print geen cursor. 

- regel 2310 = print cursor. 

- regel 2315 ». print snel knipperende cursor. ; . , 

- PRINT#4, 

print in output-device t.b.v. de printer. 

Ik hoop dat iedereen van dit programma evpftveei plezier en gemak 
BSg hebben als ik zel-f. 

Voor eventuele toevoegingen sta ik altijd open. 
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1 GOTO 10 

2 P2=P2+LEN (A* ( I ) > +2: P.3=1 + INT (P2/ 1048) : P0KE55296 , 10: P0KE55297 ,32 

3 PRINTS: (32, 1) "SPC="; : PRINTUSING"####"P3; "TRACKS. " 

4 PRINTSa32,2> "BYT="; :PRINTUSIN6"##»#"P2s "BYTES. " 

5 P0KE55296 , 1 0 : P0k:E55297 , 0 : RETURN 

l6' PRINT! (49) ; : P0KE2888 , O: P0KE8722 , 0 : P0KE2972 , 1 3 : P0KE2976 , 13 
20 DIMAt (640) : PDKE2797,58: LA = 1 • . < 

30 FQRY=1T071: Y*=Y*+CHR* (184) :NEXT:PRINT 
40 REM DATA INVOEREN 

50 G0SUB820 ' ■ 

60 G0T0890 

70 G0SUB2:PRINT?/(50,2) "#XX#=TABULATIE XX." 
80 PRINT?< (50, 1) "*XXY = XX MAAL 'Y'." i 
90 PRINT?a50,0> " ' ' ^LEADING SPACE. " 

100 PRINTS<(1,0) "EIN=EINDE PROGR. ": IFL.A=1THENP=4: GOTO! 10 

1 0 1 P=4 : BR=LA-4 : I FBR < 1 THENBR= 1 

102 FORI=BRTOLA-l!PRINT&(0,P) ""; : PRINTUSING"###" I ; " 5 A* ( I ) : P=P+l j NEXT 
110 F0RI=LAT0640 

120 PRINT?<(0,P) :PRINTUSING"###"I; : INPUTA*<3:'3f • ' ■ " 

130 IFLEFT*(A*(I) , 1)="#"THEN60SUB1120 
1 ^'b ' l#"LEFT*: ( A* ( I ) , 1 ) = " * " THENGQSUB 1 1 90 

145 G0SUB2 ■ • ' ' • ■ • ' 

150 IFA* ( I ) ="EIN"THENEND 

160 IFA*(I) = "STD"THENPRINT8<(50, 1) "INS=TUSSEN VOEGEN. " 

161 IFA* ( I ) <>"ST0"THEN190 ■ ' 
170 PRINT?/ (50,0) "SCE=ZOEKEM. " : P2=P2-3 ' • 
leO LA=I:PRlNTJ!/(50,2) "DIR-DIRECTORY. " • 

181 G0SIJB5040: GDTOBVO 
190 P=P+1 : IFP>22THEN210 
200 NEXT 

210 P-=4: PRINT&(0,4) ! (52) ; 

220 FORT== I -3T0 1 : PR I NT?/. ( 0 , P ) " " ; : PR I NTUS 1 NG " ### " T 5 SPC ( 2 ) ; A* ( T > 
230 P=P+l:NEXT 
240 60T0200 
250 REMUITVOER 
260 BE=1 : BLt==" " 

270 PR I NT ( 20 , 1 2 ) " " ; : I NPUT " ( M ) ET OF ( Z ) ONDER REGEU f*IJNf«8i--*|LS-45 

2630 PRINT?/(20, 13) ""; : INPUT" (A)LLES DF (G) EDEELTELI JK "seE* 

290 IFGES=="A"THENBE=1 : ST=LA-1 : GQT0310 ' 

300 PRINT?<(20, 14) : INPUT"GEEF BEGIN-, LAATSTE REGEL (BE, LAI '^^IHE^fT 

310 PR I NT8< ( 20 , 1 ^ ) " " ; : I NPUT" OUTPUT OP (S)CHERM OF (P)RINTER ' " ; PR* 

320 I FPR*= " P " THENP2==0 : P3=0 : GOTO 1 440 

330 PRINT?/ (0 , 4) " " ;; ' (52>'| 

340 IFST>L.ATHENBT^==LA 1 

350 P»4 : B0SUB2300 : FOR I =BETOST : I FLS*= " Z " THENT X=0 : Q0T0370 
360 TX=5 : PR I NTS-: ( 0 , P ) " " ; s PR I NTUS I NG " ### " I ; ' • 

370 PRINTSarX , P) A* (I ) 
380 P=P+1 : IFP<22THEN390 

383 GaSUB2315 ' ) - : 

384 PRINTS (17, 3) " "; 

385 PRrNT?-;(17,3) ""; : INPUT"VDLGEND BLAD (J/N) " ; BL* 

386 GaSUB2300 

390 PRINT?< (0,3) Y^^: I F BL*- " N " THENQ0SUB23 1 0 : GDSUB5040: G0T0e90 

400 I FBL*= " J " THENPR I NTS-: (0,4) I ( 52 ) ; : P=4 : BL*== " " 

410 NEXT: G0SUB2310 

420 G0SUB2320: G0SUB5040: GOTD890 
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4:':0 REM NAAR BIEK 

440 PR1NT?<(0,4) ! (52) ; : PRINT8< (20, 12) " " ; : INPUT "BEEF BESTANDSNAAM ";DI.# 
450 DISI<0PEN,6,DI*:PRINT#6,LA:FQRl = lTaLA , , . 

460 PRINT#6,CHR*<34) jAfCI) sNEXTs0ISKCL0SE,6 

470 G0T0890 , , . • , , , ' , 

480 REM VAN DISK - , 

490 PR I NT«< ( d 4 #> * -im^i' S s I NT^ i, 20 * 1 2 ) " " ; : I NPUT " BEEF BEST AN0SNAAM " ; D I * 

495 TRAP3000 ' ; < ' . • 

496 PRINT?/.(0,4) ! (52) ; 

500 DISK0PEM,6,DI*slNPUT#6,LAsF0RI=lT0LA: INPUT#6,A*(I>f 

510 DISI<CLDSE,6: G0T0a90 , • 

520 DISKI "DI":GDSUB2320:GQT0890 
530 REM WiSSEN - 

540 INPUT"GEEF BEGIN- EN LAATBTE REBEL NUMMER (BE, LA) ";ST,EN 

550 VE=EN-ST : FORT= 1 TOLA : A* ( ST ) = A* ( EN+ 1 ) : ST=ST+ 1 : EN=EN+ 1 : NEX T : L A=L A- VE 

S^O S0T0S90 • , 1 : - 

570 PRINTS/. (50,2) "#XX#=TABULATIE XX." 

571 PRINTS<(5p, 1) "*XXY=XX MAAL 'Y'." . . . 

572 PRINTS* (SO, 6) " ' ' =LEA15INe SPACE. " 

575 PRINTS/ (0,6) INPLIT"GEEF REGEL NUMMER VAN IN IE.. VOEBEN, iSgpgi^ ; I 

580 F0RT=LATDINSTEP-1:A#(T)=A*(T-1) : NEXT: LA=LA+1 (, 

581 PRINT?< (0,4) ! (52) ? :FORPlaIN-3T43IN*l fFRINTUSING-'titliff s PRIWTA* (Pl ) 
590 PRINT:PRINTUSING"###"IN; : INPUTAt (IN) .JJWfC -'f- 

595 IFLEFT*(A*(IN) ,1)="#"THENHG=I: I=IN:G0SUB1120: I=HG - 

596 IFLEFT* (A* ( IN)' , 1 > wW#«M!|p»flHB»I ! I=IN! ©OSUBl 190: I=HS 

600 IFA*(IN)=^"ST0"THEN620 r i.i ' , '. 

610 IN=IN+l:GQT05aO 

620 FGRTa(rM)TOLA:A*CT)»A*(T'+l>rNftK.TlLA==LA-l. 

621 PRINTS/ (50, 1) "INS»TUSSEN VOEBEN. " i . 

622 PR I NTS-: ( 50 , 0 ) " SCE=ZGEKEN . 

623 PRl NT?<( 50,2)" DIR=DIRECTORY. " : B0T0890 

6 30 REM V E R F' L A A T B E I'^J 

640 PRINTS<(1,6) "GEEF BEGIN- EN EIND REGEL VAN TE VERPLAATSEN BLGK" 
650 INPUT"EN REGEL WAARVOOR BLOK MOET KOMEN TE STAAN (A,B,C) ";A,B,C 

660 IFA>B OR A>LA OR B>LA OR OLA THEN 890 
670 IFOATHEN700 

680 FORK=ATOB : S A*=«A* < K ) : FORL=KTOCSTEP- 1 : A* ( L ) »A* ( L- 1 ) : NEXT 

690 At- ( C > =BA* : C=C+ 1 s NE X T : GDT0890 

700 FORK-BT.OASTEP-l,: SA*=A* (K) : FORL=KTOC: A* (L) =A* (L+1 ) : NEXT 
710 A* (C>*SA*i C«C-l !N15(Ts eOT0890 , , . 

720 INPUT" GEEF TE ZOEKEN TEKST , «'|fcW*, , i / - - ■ ^ ; ■ [ 

730 PRINTS* (0,4) ! (52) ; : G0SUB1030 
740 eOSUB2320:GOT0890 

750 PRINTS/ (50,0) "■ ' -LEADING SPACE . " : PR I NTS/ ( O , 4 ) " " j , ... . 

760 PRINT"GEEF TE VERVANGEN TEKST " : I NPUT " " ; 03* 
770 PR I NT : PR I NT*iEtP> N«.iyW!ii • mmt i-I^ffLTF^ 7 fCM* , . 

780 IA-LA-1;ER-1:PRINT: INPUT"AU|-E RE@^S EDITEN ( J/N) '^jBR* , , , 

790 IFBR*:=^"J"THEN810 ■ 

800 PR I NT I INPUT "BEEF BEGIN- EN EIN© REBEL VOOR ED I TEN (B,E) ";BR,IA, 

a 1 0 GOSUB 1 250 r, PR I NTS/ ( 50 , 0 ) " BCE= ZOEKEN . " : GGT0420 

820 PRINT! (49) ; : PRINTS/.(1 ,0) " INV=INVOER. "|?«<17,0) "STO-EINDE INV."; 

830 PR I NTS< (32,6) " ED I I TW . " ; t , 0.) " SCE^HMtCEJ** , 

©40 PR I NTS/ (1 , 1 ) " U I T-U I TVOER . " ; S/ ( 1 7 , 1 ) " D I S=D I BK I N . " ; ^ : , 

850 PRINTS.c(32, 1) "DEL=WISSEN. ■':S/.(50, 1) "INB^TUBSEN VOEGEN. " 

860 PRINT8<(1,2) "CNT=T0K\«6GEN. ";&(17,2) "DOS=DISK UIT."; 

870 PRINTfe(32,2) "MOV^VERPLAATSEN. ";&(50,2) "DIR=DIRECT0e,Y4'" • i 
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880 PRINTYt- 

890 PRINTS-: (0,4) "" ; ! (52) :PRINT8< (20, 12) ""; : INPUT"UW KEUZE " ; KE^rSOTIQRiOO 
89 1. PR I NTS'. ( 0 , 4 )"■';!( 52 ) 5 ( 20 , 1 2 ) " " ; : I NPUT " MENU ( J /N ) " i Em 

892 'eQ@Oie'0##T@IJfO#^' ■• ■ •■ ■ " ' , : . . • - 

900 P0KE2972,13:PRINT&(0,4) ""; ! (52); .t ." ;;. 

910 IFKE*="INVTHENLA=:l!P2=0:P3=0:G0T070 
920 lFKE*a"UlT"TMeNStO' : 

930 IFI<E*="STO"THENEND ..»: -j • ; . i , , ., , 

940 IFK;E*="D0S"THEN430 - •! . : 

950 IFKE*=''D!&•*^ft^ENP^g^^P8«01^©OT^3f4«C^ . • . • 

960 IFKE.f="DlR"THEN520 ; ' • ■ : - ■ 

970 IFKE*=^"DEL"THENPQKE2972,58:60TQ530 
980 IFKE*="CNT"THEN70 

990 IFI<Eit==" INS"THEN570 ? . ; ; ; 

1000 IFKE*="M0V"THENPaKE2972,58:GQT0630 ..; . .. ( i i • ^ 

t&m TFKE*«"BCE"THEN720 . , : , ' 

1 020 I FKE*--= "EDI" THENP0KE2972 , 58 s GOT0750 

1030 IFKE*=="EIN"THENEND ' ' i d 

1040 G0T0890 ; , ; 

1050 REM ZOEK IN * . i . • : - 

1060 P=4 .., , . : 4- - . I . , 

1 070 FOR I» I TOt*^S FORT* 1 ftSUm < A* 1 1 ) ) s i FW IB* ( A* ( I) , T , LEU (*»* ) > «W*THEN 1110 

1080 NEXTT 

1090 NEXT I 

1100 RETURN . 1 ■ : ... 

1110 P R I N T ?< ( 0 , P ) " " ; s PR I NTUS I NG " ## " ; 1 5 A* ( I) « PR I NT8< ( m ,.P ITIs t l-^TO 1 090 

1120 REMTABULATIE ' . . 

1 1 30 A=VAL mim (A* ( I ) ,2,1)) ♦! 0+VAL (MID*(A*(I) ,3,1)) : •- 

1140 IFA>254THENA=0 : ■ ■ ■ 

1 150 A*(I)=Rj;6HT*(At (I) ,LEN(A*(I) )-4) 

1160 SP#= " " ; FORSP= 1 TOA s SP*=SP*+ " " : NE X T • ^ 

1170 A*f:lJ=SP*+A*(I) 

1180 RSTURN ' ' 

1190 REM XX MAAL 'Y' UITPRINTEN 

1 200 A=VAL ( M I D* ( A* (I) ,2, 1) )*1 0+VAL ( M I D* IJi-^SVl l> * 
1210 SE*=MID* (A*(I) ,4,LEN(A*(I) )-3) . ■ . ■ . ■ ; 

1220 A* (I) a" " . !' :.: ••..••;{ ■, ' _•. • ■ 

1 230 FORD- 1 TOA : A* ( I ) =A* ( I ) +BE* : NEXT " ' ' i . 

1240 RETURN ■ ' ' i . ■■' ^^ i - , ■ . 

1250 REM EDITOR . i ■; . -x.;;' ■ 

1260 PRINT?< (0,4) ! (52) ; ■ : ' . ■ > 

1270 P=4; 60SUB2300 ' i - •. *. :i , • " 

1280 F0RI=BRT0IA ' ; ■ !' ; ■ 

1 290 F ORT- 1 TOLEN ( A* ( D ) s I FMI D# ( A* ( I ) , T , LEW (03*) ) «03*THElM1330 
1300 NE.XTT 

I»t0 -^XTI ■ I , ' 1 , 

1320 G0SUB2310SRETURW. - 

1330 REM ; 
1340 lFP>SlTHENP=4tfF^XMT?< (OfP)'!* (52) ; 

1350 I FT= 1 THENO 1 *= " " : GOTO 1 -370 • • • . ■ ■ . ? . , 

1360 ai*==LEFT*(A# (I) ,T-1) -. ■ - 

1370 IFT+LeN(03*)-l=LEN<A*(I) )THEN02*="":GOT01390 
1 3E.^0 OZt-R I GHT* ( A* ( I ) , LEN ( A* ( I ) ) -T-LEN ( 03t ) +1 ) 
1390 A* ( I) =D1$+Q4*+D2* 

1400 PRINT«<(0,P) "";sPRlNTUBXW»###"; I ; A* ( I ) s PRINTS (68 , P) T : P=P+ 1 
1410 IFP>21THENP==4!PRINT?aO,P) ! (52); 



S D S^iS^KiSS 



1970 PRINT#4,CHRt (27) ; "0" ; : RETURN 
1 *?S<:> PR I NT#4 , GHR* ( 27 ? ; " 1 '* ; : RETURN 
1990 PRINT#4,CHR*(27) ; "2"; : RETURN 

2000 PRINT8< (35, 18) " " ; : INPUT"GEEF DE WAARDE VOOR n (=n/216 INCH) " ; N 
2010 PRINT8<(35, 18)FFt; : PRINT#4 , CHR* (27) ; "3** ; Cl^ fllff sWgftiffM'" ■■ ' 
2020 PRINT?/ (35, IS) " " ^ : ];NPUT"GEEF DE WAARDE VDOR n (==n/72 INCH) -* ' 
2030 PRINTS<(35, ia)FF*; :PRINT#4,CHR$(27) ; ■'A";CHR*(N> ; sRETURN 

|Sf^lNT&<3S, I©) : INPUT-GEEF AANTAL REQlLS ' 
2050 PR I NTS/ ( 35 , 1 8 ) FF* ; : PR I NTtt4 , CHR* ( 27 ) ; " C " ; CHR* ( N ) ; : RETURN - ^ ' i ■ 
2060 PRINTS/, (35, 18) INPUT"GEEF AANTAL REBELS " ; N 

2070 PRINTS^ (35 , 18) FF*; : PRINT#4 , CHR* (27> ; "M" ? CHR*<N) ; rRETURN 
2080 PRINT?/ (35, IS) INPUT "GEEF POSIT IE "' ; N 

2090 PRINT&:(35, 1B)FF*; :PRINT#4,CHR* (27) ; "1 ";CHR*(N> ; :RETURN i i 
2100 PRINT?. (35^18) "";:INPUT"GEEF POSITIE "jN 

2110 PRINTS/ (35, IB) FF$; :PRINT#4,CHR* (27) ;"B"SCHR*(N) ;: RETURN ^ v ' i. ■ 
2120 PRINT#4,CHR* (27) ; "8"; :RETURN ' i ' 

2130 PR INT#4,CHR*< 27) | : RETURN ' 
2140 PRINT#4,CHR|:(27) ; "U";CHR*(1) ; :RETURN ' - ■ 

2150 PRINT#4,CHR*(27) ; "U";CHR*(0) ; :RETURN 
f ifed Pf^rNT#4,CHR*(27) ; "5";CHR*(1) ; sRETURN 
2170 PRINT#4,CHR*(27) ; "s";CHR#(0> ; :RETURN 
2180 PRINT#4,CHR*(27) ;CHR*(64) ; iRETURN 
2f*m '©BIW^O' ? • 

2200 PRINT#4, "#"!PRINT#4, m- 
2210 PRINTS<(35,18)""; 

2220 INPOTVJUIST (J/N) "jMts IFN*="N"THEN2200 

2230 PRINT?/ (35, 18) FF$;; : RETLtf^lM -i, ■ ■ r; 

2240 PRINTS/. (0,4) ! (52) ; ' 
2245 IFST>LATHENST=LA-1 ■ 

2250 INPUT"I<AN GEPRINT WORDEN (vJ/N) " ; N*: IFN*="N"THEN2240 - 
2260 FQRI=BETaST: IFLS*="Z"THEN2280 - . 

2270 PRINTUSIMG"##";:PRINT#4,I; 

22S0 G0SUB2:PRINT#4,A*:(I) . • : 

2290 NEXT:G0TQa91 

2300 F®|<gSS2f 6 , 1 0 r P0KESS297 , 32a RETURN 

2310 P|M<I55296, 10: PaKE55297,0efieTlJRN.^ ' 

2315 P0ME55296, 10: P0KE55297, 64: RETURN ' , 

2320 S0SUB2310iB0SUB2315 

2330 PRINT?< ( 17,3) " • " 

2340 PRINTS. ( 17,3) INPUT" DRUK 'RETURN' VOOR MENU " ; ME* 

2350 PRrNT?<(0,3) Y*:60BUB2310:RETURN 

3000 PRINTS/ (0,4) ! (52) ; . . 

3001 PRINTS:/. (17,7) "NAAM KQNT NIET VODR ! ! ! ! " 
3010 G0SUB2320:60T0890 

4000 PRINTS* (35, 18) ""; s INPUT "BEEF MODE (1-9) ";H0 
4005 M=0 

4610 PftiMTS<(35, 19) : INPUT"GEEF Bt© IN REBEL ";BR:IF M0=20 THEN4200 
4011 PRINTS^ (35,20) INPUT"GEEF EINDE REBEL ";ER. 

4020 CR^U^CHR* (27) 

4030 0NM0G0T04050 , 4060 , 4070 , 4080 , 40TO , 4 1 00 , 41 10,41 20 , 4130 

4050 Ma:t--CR*+ "M" GGTD4500 ' ," 

4060 NO*=CR* +"P" : G0T04500 ! , ' 

407t) MO$=CR*+"W"+CHR*<i) :M=l 

4075 NE*-CR*+ "W"+CHR*(0> ' ■ ' " 

4076 B0T04500 

4080 M0*=CRiH-CHR*(15) :M=«1 . 
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1 420 T^T +LEN ( ) : GO T O 1 300 
1430 REM PRINTER I N I T I AL I SEREN 

1440 PRIt\JT?,(0,4) ' (52) ; :PRINTS<(25, 10) "ZET PRINTER AAN 1! 
1450 IFJK>1THEN1470 

1460 PRINT#4,CHR*(27) ; CHR* (64) ; s JK=1 
1470 REM PRINTER UI TVOER 
14f:?0 FFt-^::" " 
1490 PRINT?< (0,4) ! (52) ; 

1500 PRINT" 1 = ELITE MODE."; 
1510 PRINTTAB(36) "19 = PAPER-END IGNORE." 
1520 PRINT" 2 = PICA MODE."; 
1530 PR I NTT AB (35) "20 = TOP OF FORM SETTING." 
1540 PRINT" 3 = ENLARGED MODE."; 
1550 PR I NTT AB (35) "21 ^- UNIDIREGTIDNEL PRINTING. 
1560 PRINT" 4 = CONDENSED MODE."; 
1570 PRINTTAB(35) "22 = B I D I REET ll3»if©. PRINTING. 

1580 PRINT" 5 = UNDERLINED MODE."; i- .r -im » • 

1590 PRINTTAB (35) "23 = 50 CHAR/SEC. PRINTING. ' ' " ' 

1600 PRINT" 6 = EMPHASI3Bg{>r.- MODE."; 

1610 PRINTTAB (35) "24 = 100 CHAR/SEC. PRINTING. t ... 

1620 PRINT" 7 = DOUBLE-STRIKE MODE,"; . '" 

1630 PRINTTAB (35) "25 = PRINTfiR lN!tlj%.I.Z#¥Itlfel. 

1640 PRINT" 8 = SUPERSRIPT MODE."; ' 

1650 PRINTTAB (35) "26 = TERUG NAAR MENU. ' .' 

1*40 PRINT" 9* * ALTERNATE P«3DE. "; 

1670 PRINTTAB (35) "27 = PRINTER TEST. 

1680 PRINT" 10 1/B INCH LINE FEED."-; 

1690 PRINTT(8fB05) "28 » MfJDE PER RESEL INVOEREN. " 

1700 PRINT" 11 - 7/72 INCH LINE FEED."; 

1705 PRINTTAB (35) "29 = START PRINTER UITVOER. " 

1710 PRINT" 12^«».:^i/6 INCH"! -:Lffi^^5fe£0". - ' ; .u ' l-: ■ ' . -.^ t': 

1720 PRINT" 13 --r- n/216 INCH LINE FEED. 
1730 PRINT" 14 - n/72 INCH LINE FEED. 
4740 PRINT" 15-. ss^^RM LENGTH SET,,., 

1750 PRINT" 16 = SKIPDVER PERFOR, SET. - 

1760 PRINT" 1,7 = LEFT MARGIN SET. . , . . 

1780 PRINT?<(35, 17) ""; : INPUT*UM mUIM ' " J KZ: G0SUB1800 

1790 PRINT&c(35, 17) " "'^ J'''- %j : GOTO 1780 

ISOO IFKZ<llTHENia30 

1810 IFI<Z<21TI 1EN1840 

1820 IFKZ<30THENia60 

1830 ONKZGOTOieeO, i6t©, i¥00, 1-^10, 1920, 1930, 1940, 1950, 1960, 1970 

1840 KZ-4<Z 10 

1 850 0NKZ6U 10 1 980 , 1 990 , 2000 , 2020 , 2040 , 2060 , 2080 , 2 1 00 , 2 1 20 , 2 1 30 

1 860 K Z -K Z - 20 . ^ „^ . . 

1870 DNKZ(30T02 140, 2 150, 2 160, 2 170, 21®©, ^"90, 2200, 4000^,22401 - s.: 

1 880 PR I NTtt4 , CHR# ( 27 ) ; " M " ; : RETURN . , ., ., 

ism P1RIMT#4,G«^*^27)r"P"|sReTyW v- M*^- 

1 900 PR I NT#4 , CHR* (27) ; " W " ; CHR* ( 1 ) ; ; RETURN 

1910 PRINT#4,CHR:.t ( 15) ;: RETURN ' , ' 

itaO PRI«T»4, CHR* (27) ; "~" ; CHR* ( 1 ) ; : RETURN' ' 

1930 PR I NT#4 , CHR* ( 27 ) ; " E " ; : RETURN > .. \ .:-isv 'bi 

1940 PR INT#4,CHR* (27) ; "G"; : RETURN ' "' 

1950 PRINT«4,eHR*(a7)|"S*'fCH«*(0) ;(:aHR*(27>|»ft«t^^^ ; : RETURN 

1 960 PR I NT#4 , CHR* ( 27 ) ; " 4 " ; : RETURN 
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40SE5 ME*=^CR*+CHR:t (18) 
4086 60t04SOd 

4090 MO*==CR*+" -"+CHFv* ( 1 ) :M=sl 
4095 ME*=-CR$:+"-"+CHR# (O) 
4696 G0T04500 
4 :L 00 MO*-=CR*+ " E " : M= 1 

4105 r'IEt-=CR*+"F" 

4106 eOT04500 

4110 M0*=CR*+"G":M«1 

4U5 ME*=CR*+"H" . ^ 

4116 ©OTO4t5O0 ' ' 

4120 Mf3:t=:CR*+"S"+CHR* (0) +CR*+" A"+CHR* (5) :M=1 

4122 ME*=CR*+"T"+CR*+"A"+CHR*- tl5) 

4123 G0T04500 

4130 MD*=CR$+"4" :M=1 

4135 ME*=CR*+"5" 

4136 GDT04500 

4200 MD*=CHR*(12> '. ' ,., . 

4210 A*:(BR)=A*(BR)+MO* ' 

4500 PR1NTS< (35 , 18) FF*: PRINT&: (35 , 19) FF*: Pt*tt9Tfc^3!S4*^J PF» 

4505 IF MG=20 THEN RETURN 

4510 At (BR)=MO*+A*(BR) : IFM=OTHENRETURN ' 
4320 A# (ER)=A* (eR)+HErfPit1lbfW-'' ' - ' ' 

5040 PRINT?< (32,1) "DEL=WISSEN. 

5050 PRINTS* (32,2) "MQV=VERPLAATSEN. ": RETURN , 



Uith »»lp of our ««iber Rene HettflBt«?hje found .»o«el«po?^«|rt 

for users of the BK ftsse«bler/Disasse«bii#/iditorll«r®H«ii ^ mmM^im.- 

its MisiszBfii 22 ii§i<i2il§ s[yb!iQB essiEiiifi Hitb voy-cajois, 

Ueere ©f the SiMtm consoter with VDU-card that want ti* i«(ple«Ma>nt mtim*4m m 
tlMlif mymkm only need changing following addresses: 

old! 2E9D 4C 00 30 INPUT JMP INPRTN ; THE KEYBOARD II^UT ROUT I ^E 
new: 2E9D 4C flE 12 INPUT JMP RECCHfl ; " " f « ' 

old: 2EftO 4C 34 13 OUTPUT JMP PRCHfl : THE PRINTER OUTPUT ROUTINE 

Msg ii output ™p nphch* = Jhe^neu^pr™ routine 

INFORMATIONS AND SOURCES ABOUT 
INPLEMENTING THE VDU-CARD ON 
JUNIOR WITH CASSETTE OR FLOPPY- 
DISK inrmw^fiCE 

C0MAL*j.K6N on Elekt o rls JUNIOR comeuter with VDU-eardj. 

To implement C0MflL».K8N on Elektor's JUNIOR computer using the VDU-card and 
Electors Pfip«f«*iw 4 software following addre»Wft mmt be 3ofined follows: 

nidi 20 AE 12 INPCH JSR RECOW 

new! ^3 20 AE 12 INPCH JSR RECCHfl 

old! 47FA 20 34 13 DUTCH JSR PRCHfl 
new: 47FA 20 8fl 16 DUTCH JSR NPRCHfl 

tmii tTFi im 11 I I euLF JSR crlf > 

old: 2CH fig 12 INPCH JSR RECCHA 
newt 2C11 20 flE 12 INPCH JSR RECCHfl 
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SCICiN-EDiTOR VOOR JtMXORCtWPUTER MET mM&mT 



SCREEN-EDITOR V3.0 



1. INUlIlXNe 



■■SV-'''"'- ■ ' 

'■■''^ M-V Ti»-Ju 



Ewi 'schamradaktsiir* (scrMnaditor) 

de mogelijkheid om ragels (bijvooriNMrl 
het Tv-scnerm staan tvr alaatse te nijzigan. 

De hier beschrevcn wAW^m' kan niet ^fsCandig warken, maar ttovt ■aMnnerken met 




r 



Basic of Coaal. Dit aMriit aCRlB zeer geschikt voor systenen die net taoes Merk- 

computers net diskdrives zullen veelal een onafhankeli,ike editor bezitten, Maar- 
9mm ASCII-files iaanaeMakt Morden. Deze files Morden dan in no-ti«e via disk 
Nser in Basic (of mat dm o«k> iimelezen Morden. Met casette-recorders zou dit 
een tijdrovende zaair wordinn. ^^mdiar dat SCRED toeaevoegd wordt aan de orograa- 

aeertaal. 

B« SCRED3.0 scheraeditor kent drie vepsefttllpide aebriitltlia«aelijkhiidfli4t 
a. Be aecoabineerde edit/windotiaode (eveiafffiin ^ > 
b* Be Insert mode ./ji.'i^ -^..,1 r,..,^/; 

c» ©• eetMandaode. ^fij ' ■ ..■ .jiciji 

De edit/windowaode is iki %mf»StmA Maartn 
toetsenbord. Eveniiwie flliftini WatMNHfl 
jMwteade toetsen* ''•^i>^ 
Ml aen een reaeldeel tussenvoeaen f n aaflc bastaande 
ovarschafcelmi ivaar de insertaode. 
VoSf «eNKStil«u«il«t-scheraaebonden beiierkinaen is de coaaanda|tdto. MsiM^eel kent 
d« ^coaaandawdii slselifes net coaaando Quit, Maaraee tian ^mim M Coaal) naar 
■J^iM9f»imti^mtmms>»^ifdt gesoronaen. 

Be aeeste aensen ervaren een scheraeditor als veel asbr<ti|«ii«vriendelijker dan 
een regeleditor. Vooral voor Basic (KB-9} en Coaaf (sMlN), die nauwelijks 
editaogelijkheden bezitten is deze editor een «A^|' 




reael. 



2. HET PRINCIPE mt^m^mmmmjsm* 

— — ■ '" ' ■ "g'te i iji""^ ' ■ ' /■W illi '* ' ■ 



De hoofdrol in hat ser — n^e d itororograaaa Nordt gesoeeld door oijltje-vodruit 
— >). Als d» pijltje«ir«04niit«a«^ine 
I. Lees de pl«^s In ««iiNN»f 



( 



aangeroeoen Nordt, gebeurt er net yol| 

„^ *iiaar, de cursor zich bevindt (bijv. D6O0I. 

II. Haal hat iMn^lvf dtet III ffii ittrser staat (eo adres B600) in Accu m AHold. 
III. Sla dit itarah«Bi» m tn die l^fer (van Basic of Coaal of ...) en verheog de 



cui^r 1 eesltie naap recMs. 



J ■.>»■ -J . 



Door herhaaldelijk ( — >) over een reael te verolaatsen, denkt Basic (of Comal) 
dat er een regel wordt ingetikt. 

Met dit orincioe is inherent de beoerking verbonden dat soaaiae editooeraties 
indirect gerealiaaard aoeteni mopden (bij regeloverschrijding). 

3. COMMANDO'S. 



De besturing van de •ditfiiiilttivS viridt olaats oo tMee aanicreni 
I. Direkt. 

Hieronder vallen de oijltjes, char-insert en char-delete. 
II. W#'l^ «f GMPHN code. 
lEBCi.>lm mmm /b u -. ilietatninll Druk op de ESC^APE-toets, laat deze weer los en 
'■^•''^*J^y> ^b^a.M ^iip»^ si^-it'i&o itv^roe het aewenste karakilir' $m* 

(I^MI mt^mr m^mm* Huk aelijktijdig de CONfllDL^ts^s ch iIb HMtoais 
.;' ' v.> in, laat deze weer los en type het oewenste 

' '-^ karakter in. 



Bij full-scrsen-editing it 
coaa«fido*s teMMkiiaar zijis. 
ymmm. '-Wf^=' 



het van groot belang dat ook de Elektuur mv- 
Ook deze coaaando* s zijn in het eoaaaiido--«vei^ieht 
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(Dit zijn coii«andD^« die «llMnfi tfp wm raa*! tevMsiMUir zijn. ) 



Stvur dm cursor 1 reqel oalaag. 
Staur d* cursor 1 regel oahoog. 

Stuur d* cursor 12 reoels onlaag. ^' 
Stuur de cursor 12 reaels oMhoog. 
(•acKtsve rhef f i nosteken ) 

h»* schera'schoon en oositioneer de cursor in 
lmim^mmt*mek (Clear screen + Home) . 

ando's. 

1,1,1, ,11. ...II.. ■..iinn~-'~— » )0 t>^^L^^S>\ <::li..i s'iV ; t^i"v 

(Dit zijn coMMndo's die all«m tigMNHi.vwipil. »iM Bl B i tW« y^g|#lfe> .'oi 
Bl. Itaraktergeerierit«»rdli ^i « iwrti g>»> t ' 



I*} 
< f > 
(E9C)V 

(ESC) 6 of (ESOt 



«f fiSClt 



■•.•■IM- 



B. Regel-edit co 




de 



(— >) 
(<—) 
(CHR. INS) 
(CHR.OEL) 



12. ' 1 ^ eo«iiMHid o*s^ 



(CR) 

(ESC) (~ 
(ESC)—) 
(ESC)fl 

(ESC)a 

(E5C)u 
(E5C)I 
(ESC)C 
(EBOS 

(OfTR+N) 

(CHTR^X) 



6a naar het volaende karakter (cursor 1 oositie rechts) 
6a naar het voriae karakter (cursor 1 oositie links) 
Voeg een soatie tussen. 

yiiniijftor het karakter wMir de cursor eo stMt. ^ 

fUKtff'"* >rJr<15«JijO/ 

81a de remii nMf^o cursor staat oo in i^t aehettfen* 
6a Met de'^erttirmaar het beain van de regel. 

6a eet de cursor naar het eind van de regel, 

Verandert alle letters tussen de cursor en het time van 
de rcoei in HOCFDletters (c«pi|alsl« 

Verandert alle letters tusMA'^l^^iilMfnCII^ van 
de reael in kleine letters. - 
Escaoe-soatiebalk voeat 20 soaties tumMR. 
VetlMint toeaang tot de insertaode. 
Virrlitiilt toeaana tot de commandmode. 

Veiitlidltrt hat' reMldeel vanaf de cursor tot aan net 
einde vin de ttic»l--wine erase) . 

Ventijdert alle soaties tussen de cursor en net 
ewrstvoloend karakter dat aeen soatie is. 
Cancel; "vemijder de tot nu toe i«iftlkt« iml 1» ?•* 
de cursor op de volgende regel (allMn ¥om ¥m!§ iMie; 
vttortMwt ' ' *)• -11, 



I mi (ESCJc ) 

T (CR) 

Q 

D 

(CR) 

4. GEBRUIKSAANUIJZING. 

De werking van de eeeste coeeando's i« trj*"^*?^?,?^ ^T"'*?? H^*^^ coeeando- 
overzicht: Enkele coemando's verdienen i«H a*^****"**'^^ ^oelichtinq. 
(CR) Slaat de regel waarop #*,^rsor staat oo in het Ofheuoen 

^ Het eaakt niet uit eo tbellt* oositie in de regel een (CR) 



Zet'^in Basic de tereinalwidth oo 80 karakters. 
' Verlaat Basic/Coeal> 

Wrlaat^tMle/CMMl an wtmrt de disMMMriiler op FC4E. 
Verlaat de ciiMMWifiiWHie. 



(CNTR+N) imr, 

(ESC)I 



wordt gegevim, oedat toch de gehele reoel wordt afgetast 
(no erasure). ^ . ^ ^.^ , . . 

Als een bi tvoorbeeldrOST intikt. betekent dit wel dat 
achter de LIST-instiellle geen tekst eeer jjag staan. Is 
dit Mel het aeval, dan eoet eerst een (ESC) 8 en dan oas 
een (CR) Horden inaetikt. 

^^oert de in>wrsebeMerking W_<ESC)kar. uit. ^ : 
6a over van overMriteeode (jiD/UI MODE) naar inser|*Me. 
Ma (ESC) I wordt all«^%tlEl# tfMsenovi^aegd oo d» j »l«ats 
Near de cursor zich iMrvlndt. 
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KEIMMEIR 



4" 



(—>> 
(CR) 



Od dm eerste rvael van het sciwrM v«rschijin% el* . 

irMwrtModvindicati*. Dit is om v«n«arriirtg te voorkOMm, 
als Men bijvoorbeeld na Mn koffimauz* tarug koat an 
niat aaar Haat in walka aoda aan zit. 
Da imartaoda kant da voloanda &mmmo*m* 
ii — ) I Vamijdar hat laatst tusaanaavoagda karaktar. 

X Varlaat da insartaoda, an oositidnaar d» «ur«iir 

1 posit ia naap rachts. •- - , 

I Varlaat da insartaoda, m mU dc bmmrit^ rmml 

Vardar Marfcan ttlflirMrd dto aditcoaaando*s nog 

staadst 

(CNR.IN8K {CHR.DEL). CESC) . (ESC) — > , tiSC) 

en (carriNliit^ . 

8CRED 3.0 start altijd oe in da ovanfrita^oda 

Verlaat Basic/Coaal in full-duolaxaoda. 
Een break resulteert in een warae start van Basic/Conal. 
Mordt een Quit aidden in een reael geQe¥H» (zoncter 
voorafaaande (RETURN)), dan wordt dim regal rtlmi in hat 
gahaugen eogaslaoan. ■ 

.wr^ " ; -'i- 'CTj <}c: f • • ■ 

S, MOeELlJKHESEN EN BEPgRKf lpj^ MR| iO iEP^ 0 '^^-^ 

Mogelijkheid om reaels te kooieren. Door het regelnuaaar van een regel die al in 
het aeheuaen is "ooaeslaaen te wrnvmnAmmm-Wm ttm (CR> te goifMik: mvrdt de 
batreffendi regel gekooieefd net het nteuM fioaliimaer. ^ ' « 

SooeMli** M««l< veelvuldia gebruifc van de PMV-vidaoco«aando* s. Daze 

coaaando^s maSimn het nogelijk een overzichtelijk scherm 

op te maken. 

De vele editfunkties naken het olezierig om f out loos een file in te 

t||.«dilfm!i Toch kant SCRED enkele beoerkingen: 



rking t 



(E8C)C Q 



voeren, of 



Oplossing It 



Oplossing 2s 
Ofilossing 3i 



Oplossing A* 



Oploraing Si 



b. 



Oplossing 1: 
Oplossing 2* 



VOORBEELDi 



Bij een toetsenbord met repeterende toetsen, kan het 

voorkomen dat van een ( t ) of een ( * ) gebruikt in 
autoreoeat, de code te snel bij de JUNIOR aankont. Dit 
leidt tot een break bij de oriainele Elektuur RECG|lfl« 
routine. Dit aebeurt vooral als aen kolom 60 van nift 
echera nadert. 

Geef eerst een (ESC) < — , en repeat dan in kolom 0. De 
SCRED-software hoeft dan niet de hele regel af te 
tasten, maar alleen kolom 0. Zodoende kan de Edit- 
soft ware dit bijhouden. 

Verlaag de reoeatsnelheid van het keyboard. 
Maak vooral oebruik van (ESC) 6 en (ESC)V of HO^E, m 
stuur met ( T' ) of ( * ) zonder te repeteren naar da 
juiste reqel. 

eebruik auto-reoeat niet. Druk telkens de pijltjestoets 
in, kijk naar het beeldscherm, en herhaal dit totdat de 

cursor juist aeoositioneerd is. 

Vervano de routine op ♦l2flE door aan intarr«Bt'«di»iv»n 
character-in routine. 

De Basicbuffer kan maar 72 karakters bevattai9 . ICoaal 
255 kar. ). Zodra men de terminal breedte (repel) 
overschrigdt en een (t) (*), (ESC)V of 6 geeft, of 
als men zich in de insert- of commandmode bevindt, ont- 
staat een Svntax-errror na een (CR). 

Overschrijdt de 80 karakters tellende VDU-regel in die 
oevallen niet. 

Gebeurt dit toch, pa dan met ( t ) naar de reoel die 
begint aet het repelnunmer, oeef een (ESC) — > en ga 
met ( ~) ) totdat het einde van de ingevoerd 
informatie is bereikt. Door nu (CR) in te tikken, Mordt 
alles Hel correct oogeslaoen. 

(NBi Men kan ook voldonada M^m^ VSM^-. — ) oevwi, 
gevolgd door een (CR)). / ' ' 

k^ 



iOO PRINT'Blabla. 
lablabla, 



blab 
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4^ 



9ty '<^:,'..v s6a Met (t) naar 100, gMtf H«Sgei — »i' ( — >), CESC) — > 

5 ■ ' ' , (CR) en alles is ok»»>Ts 

■ 'IX '^<M»tij|ij m#Mle imra«t|MiMlR4« niet genoeade editcoMUUi- 

: tt 'ofwctAa:. *bf>i>o(ii^-»rii i-o<'it >l*Bli«< i»to ^ te Mken. 

Load en Save hebbeti niitt^bm^^mi/k J^immmtMimTmeoTdmr te Mken. Save tNM«aart de 
Naardcn van A. X, Y, en toMl hMit itm mmt tetug. 

7. INSTflLLflTIE. 

,,^.,, ^, a,^ — - -, ; . • Rihr- ■ 

Met iMhiilp van de sourcellsting is het in orincioe moaeli ik om SCRED in iedere 
atkHile tap Y e e i nt efeng In: d# Srakt ijh >«al bliji^idaf er toch steeds meer ver- 
anderingen aangebracht eoeten worden^ zowel in SCI^ als in het prograeaa naar 
«en SCRED in wil bouwen. 

le volgende wijziginaen aoeten in Basic aanaebracht Mordeni 

a. Mres 2428 wordt JSR EDITOR 20 00 03 was 20 56 24 

b. 2433 Hordt CM> 08 C9 08 " C9 20 

BEO E9 FO E9 "90 Fl 

c. " 243F Nordt CMP 20 C9 20 " C9 5F 

- - • ^BCCra 90 E5 " FO ED ; ,,i,.r^^-. .w, ►^.-^v 

d. " 29C8 Nordt UDA 00 - " aM.42a,i*stK»o . -a. V^. 

a. " 243B wopdt CMP t# - Ct It « »• tfit ti^^wTT:..,, • - ^<\9-i9^ 

Itot bests is OM daama de file <300,72A> te verolaatsen en te herloeitl^lrcn 
vanaf adres 4261 (nieuwe editoradres). Veroeet dan niet het beginadres van vrij 
door Basic te gebruiken aeheuoen aan te cwssen . <40C0/4t47/41S7/4l6A/417F) . 

7.2. INSTALLATIE IN KB^^II^^Ifft^^i^^ M ^"^mmMi 
— .1 I. . . . ^ — — — — — — — — 

11. Pss de Basic aan zoals beschreven onder KB--9 Basic. 

H. Move en relocate het geheel en voeg het toe aan de Basic volgent de beschnj- 
ving in de collected c»tches (ENDOAT 40CD/413I}). ; ' 

c. Subroutine Inout (43F0) dient uit het volaende sti^Mwmt te bestuni 4C AE 12 

d. Zet de volaende data vanaf adres 41C6i 

00 OA * Screen-editor V3.0 (C) 1989 B' 00 OD OA OC 
NBt Autolinenuebering geeft soes oroblenen. 

7 .3. SCRED EN^B^COBE^ ^ fw* . ■ I •••..v . : v .-5.' .. 

Wijzig in het BasicodevertaalorogrsMM deufsagende 3 l^tesi 

04C2 EA EA EA (Has 20 34 13). -n-, . « ■■; 

7.4. INSTALLATIE IN C0MAL«K6N.<^ -fi 

. • • • • J'M r~i<rr 

'a. Wijzigs <:^s.v- , ■. itn-A ui" \><\ 'i sh^ *u 

2K3 20 00 03 (MM- ^O^IIE 131 M ' 
^ . . 28FF 20 00 03 
o 2C11 20 00 03 

b. 47E7 EA (was E8) , 
c 47E8 20 4E 04 JSR STOREBUF (Mas SD 00 02) 

c. 3000 4C SO 07 (Mas 6C CS 47) vm... k 

Zet dit orograaMa vanaf 750i 

790 fl2 FF 3 DD 60 07 20 34 13 C9 03 DO F5 6C C8 47 
760 OA 93 43 92 49 49 4E 2D 49 44 49 54 4F 52 20 53 
770 43 92 49 44 20 33 2E 30 OD OA 28 43 29 20 31 39 

>fae^^ p mm^m^m^ 2e 20 64 §9 20 42 iza^s 6%^,. 
7io m mmmm<yz ^- horv^^.^ 
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Handiger is Iwt o« het prograMiia te herlocaliseren vanaf adres 4600. In dat ae- 
val moeten dm gfcNvugmplaofwrn 4177/4179, m^/Mm itmin van vrlj« ram) ^nom- 
past Morden. » * « . 

VeiBEET MET ai MN CIQK JSR ^TtlRiBl^ 

< . n • ■ 

7. 9. imtpujm in mi mmmmmiwc voDULE. 



Zoek de inout routine oo. Hierin zit alt i id een JSR RECCHA (12AE). Vervang dit 
^£2'*JS.'L^'I9''' Vindt de coamunicatie olaats in half-duolMc, <ten zal awn een 
JSR PRCHA (1334) eoeten vervangen door hN)Pjes (Efi). 

7.6. INSTALLATIE ALS STANDAARDEDITOR IN HET OPERATING SYSTEM. 



Mim kan de JUNIOR ook standaard met deze screeneditor uitrueten. Dan heeft men 
(net als bij de meeste hobbycomouters) een echte buffer. Wei moet dan iedere 
prograemeertaal naar die buffer wijzen of er moet aan iedere taal aoart een ko- 
pieerrputine toeqevoead worden, die de data van de JUNIOR-buffer dan kooieert 
naar bijvoorbeeia de Basicbuffer. Dit is nodig, oitdat Com! dm buff«r WMr oo 
een ander adres heeft dan Basic, ... enz. 

Daar ik «ltijd MMr 1 progr i e ees rtaal tagelijk kan laden, heb ik hier vanaf 
gszien. 

7.7. INSTALLATIE OP EEN ANDERE COMPUTER. 



In het algemeen zal SCRED alleen aeimolementeerd kunnen worden oo systemen met 
een memory-eapoed VDU-systeem. Voof ' standalone' -terminals dient men heel anders 
te werk te gaan. Bezit men een meimiryMtp^vd VAXJ-coaouter, dan kunnen 

onderstaande aanwijzinaen benut worden. 

Men moet zelf de standaard routines oozoekon van de betreffende comouter, zoals 

duplex, home, clear-screen e.d. Bij Commodore-comouters zim de routines die 

hier als elementaire routines zijn qeetiketteerd, standaard aanwezig. In olaats 

van de (ESC)-toets kan men bijvoorbeeld de CoMModore-toets nemen. 

Men dimfrti mr ml r«k«ning hm te houden dat de ehei*-delete<»reutimi * reversed* 

werkt. 

7.8. UITBREIDINGEN. 



SCRED 3.0 twvat de commando's die ikzelf het meest oeorulk. Na een ooosie met 
deze screeneditoraewerkt te hebben, kan men tot de conclusie komen dat men graag 
nog meer commando's Mil bezitten, om nog sneller wijziginaen aan te brenaen. 
Personen die sugaesties of ideeen daa rover hebben kunnen mij schrijven. 
Inmiddels ben ik al vergevorderd met een vernieuwde schermeditor. hierin zit een 
il^^^ ?1? <ESC)c die sneller werkten, en waarmee men een 80 karakters tellende 
BO karakters tellende regel zonder 'syntax-error' kan overschri jden. 
Eveneens is een (ESC)P, (CNTR+N)P, en (ESC)Z routine aemaakt, zodat men nu een 
pointer kan zetten, en regeldelen kan deleten. 

Tevens is een line-insert, line-delete en plak- en breekcommandoset toegevoead. 
Er wordt nog gewerkt aan een Find /tekst/ en Change /tek«tl/eMnit2/eoMMndo. " 

Verder is toegevoead: Beeo, (Ea:)T, enz. 

Voor het Find-coAMando is het noodzakeliik om subroutines uit de Basic- 
interpreter te gebruiken (o.a. om tokens oo te sooren en om te zetten naar 
tfkst, en om het regelnummer te vinden in het aeheuaen). 

Dit houdt in, dat het universele karakter van deze editor (kan in iedere taal 

feimplementeerd worden) helaas verloren gaat. 
•rf^?J!!SSS "^J inlichtingen wil aeven, hoe aenoemde zaken in Comal, Forth, 

TED/flSSM e.d. worden afgehandeld, kan mij veel werk besoaren (schriif!). 
Suggesties over commando's die men onmisbaar acht zi in natuurliik ook welkom. 
Hoewel ik reeds ruim een half jaar met SCRED werk, is het niet uitaesloten dat 
er toch nog foutjes inzitten. Wilt U die s. v. o. (met Uw oalossina ) aan de 
redaktie Meldm? 

B. de Bruine, 0' land. 
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Dl 



e s a s 



KEIMMER 



0010 
00^ 

0<HO 

0040 

mt 

OOfiO 

0070 

ooso 

0090 
0100 

mm 

011» 
0140 

0150 
0160 
0170 
0180 

0190 

0200 BASIC 
0210 COWL 
0220 

0230 iri ^ 
0240 UP 
0250 DOWN 
0260 RIGHT 
0270 LEFT 
0275 ECURSOR 
0280 INLINE 
0290 COL 
0300 AHOLD 
0310 XHOLD 
0320 YHOLD 
0330 LOAD 
0340 DUPLEX 
0350 COMCOC 
0360 PRINT 
0370 RECHA 
0380 MONITOR 
0390 HOCU 
0400 HOME 
0410 ERLNX 
0420 ERSCRX 
0430 RETU 
0440 FEED 
0450 CURDN 
0460 
0470 
0480 flR 
0490 RFILE 
0500 
0510 
0520 

0530 BUF 

0540 GET 

0550 

0560 

0570 

0580 

0590 BUF 
0600 SET 
0610 
0620 
0630 

0640 TEMP 
0650 VE 
0655 CURCOP 
0660 
0670 
0680 

0690 BUFWIDTH 
0700 TERWIDTH 
0710 
0720 

0730 BUFHIDTH 



.LS 



J t • f t i f * « f # 
: **«««• *f» 

« 

•REftLISflTIE 21-1-85B 

:6EKNff>TE K6N-VEiSIE /LMTSTE UIJZieiD^:07038Si 
; il 0602^ . 

• 

•Dit orooraua uakt aebruik van conditional assnblv. 
:Indien het label BASIC of CONAL de Maarde 0 hwft. 
;Hordt vaoF^ie taal hvt finwraMH QNtsnblMni. 



iPROBRftWEERTflflLKEUZE (MSIC OF OMPLt 



■ '-0 



.DE iOO 

•BE m - 



■0 



m VIDEO RQUTiNES/ADRESSEN . ; 



:I3 



■> •>■:■) . 



CURSOR UP 
CURSOR DOWN 
CURSOR RI6HT 
i^JBSOR LEFT 

VIRTUELE CURSOR POSITIE 
CURSOR POSITICgtl IN LINE 
OJi^R PCSITION IN COLUMN 
Ta!PS*A.X.¥ •', 



.DE $0F5C 
.DE $0CD4 
.DE $0F81 
.DE »0CC2 
.DE $1A36 
.DE ilA38 
.DE »1A33 
• DE $1A2D ' ' 
.DE $1A2C 
.DE $1A2B 
.DE *16C0 
.DE «1A41 
.DE $1513 
.DE $1334 
.DE $12AE 
.DE $105F 
.DE $0CC8 
.DE $0F87 
.DE $OCEO 
.DE $0CE6 
.DE $0CA8 
.DE $0CB3 
.DE $0F38 

• 

■CRTC ADRESSEN 
.DE $D800 
.DE $D801 

•BASIC-LOCATIES 
IFE BASIC . 
.DE $1B 
.0E$245& 
««« 

•COMAL-LOCATIES 
IFE COMAL 
.DE $0200 
.DE RECHA 
«»« 



:LOCATIES BEBRUIKT DfflJR SC8ED EN BASIC 
.DE $00 
.DE $1A79 

.BE $E2 ; mm COPM iilSOi>OSITIE 

a 

•VARIABELEN/CCMnWTBil VAN SCIO 
IFE BASIC 
.DI $48 

.DI $48 : EIS! TERWIDTH <= BiJWIDTH 

«»« 

IFE COMAL 
.DI $F9 



RESTORE A.X.Y 
DUPLEX-FLAG 
RESET Tf€ ESC-FLAS 
PRINT 1 ASCII CHAR ON SCREEN 
RECEIVE 1 ASCII CHAR FROM KEYBMRD 
RETURN TO LABEL UffiJUH IN WWITOR 
WM. CURSOR AND Jl«> VIl^ 
HOME CURSOR 
ERASE TO EMD OF LINE 
ERASE TO LND OF KREEN 
CARRIAGE RETURN 
LII€ FEED 
CURSOR DOUN 



AR+1 



■■■.■■ty'-: 
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1^ 





0740 TERyiDTH 


.DI W 




ATCA 

0750 


fit 




vlW 






ftT7ft 


:h« ctctBwtaarB 




n70A 






Uf 3U 


• IN wvaW) 




AflftA 
VOUO 




O'^fflfl- M An 


ftAift cniTnB 
OolO till 1 UK 


too UAI C 

Jan nHLr 


rtTrtT- Ort ■vC OA 
UjUj jo z4 


AD OA 

OozO 


JSR BET 




AOTA ravT 

0630 EDIT 


CWP #$1B 


A7Afl nA AT 

OiSOfl- DO 


0840 


BNE INVERSE 


ATAA AP Q1 AC 
UOUM- 4U 31 Ufa 


0650 


JMP ESCAPE 


ATAIX rO AC 


0860 INVERSE 


CMP #$0E 


ATAC ftA AT 


AOTA 

0870 


BNE RETURN 


ATI 1 AT AC AT 

OoU- 4L Or 0/ 


AQOA 

0660 


Tun ^kiTnki 

JMP CNTRN 


ATI A no An 

vol 4- Uj OD 


AOOA ivniHu 

0890 REilflm 


CMP #$0D 


uolo UU OL 


AOAA 

OwO 


BNE ALL 


ATI D— OA 7A AT 

OjIB- iU /U Oo 


AQI A OCT 

Oslo ntr 


JSR SAVE 


AT 1 D- OA C7 AT 

Villi- /U t/ Oj 


AQOA 

OszO 


Tpn 

JSR ESC) 


ATIC- CO 
UJlt to 


AOTA 
03O0 


T ktV 

I NX 


AT 1 C AO AH 


AQA A 
03*0 


LDA t$OD 


AT01 OA 7 A AT 

OjzI- /U Oj 


AOCA 

0950 


inn nnttr 

JSR SAVE 


ATOA- OA TA IT 


AQCA Al 1 


JSR PRINT 


rtT07- Oft nil 


AQ7A 
03/0 


TCfi CI U 1 

Jbn rULL 




AQOA nMUfinc 
03oO URIUUo 


PMn ll*AD 


uozL 10 


AQOA 
0330 


CMC fiMt one 
BNt DpILhHd 


rt'tOC- Oft 7ft ftT 


1 AAA 
1000 


TCO CAIfC 

JbR SRVE 


rtTTi- on ft* 


IftIA IHlCTaTDC 

1010 UrBiHilra 


TCO nncpni 
Jbn KUbCuL 


ftTXi- Oft 7ft ftT 
vJJ4 ^U /U Uo 


IftOA 
lOZO 


TCO CAllC 

Jbn bHvc 


ft7T7- on ftc 

uOij/ ZU jL Or 


tftTA 
lUoO 


TCO 1 in 
Jbn UK 


ftTtQ- Oft rft 1C 


1040 


JSR LOAD 


ftTTn_ OA 00 AA 
UjjI/ 04 


1050 


JSR ESC{ 


ftTAft- OA CT AA 
Uj4U bo 04 


1060 


JSR KOLOM 


ATAT- AT PA 1C 

Uo4iS- 4L LO lb 


1070 


JMP LOAD 


ftTAC- ro ftO 

UiWb L3 OH 


lOeO OMLflAB 


CMP »$0A 


ATAB_ nA AC 


1090 


BNE RECHTS 


ftTAO- Oft 7ft ftT 
UJIKn zv /O Oj 


1100 


JSR SAVE 


ftTAH- 9ft "in ftA 


1110 DOMSTRIliS JSR POSCOL 


ftTSft- 9ft 70 ft* 


1120 


JSR ESC< 


ftTST- 9n ftA 
vJJJ Zv DO v4 


1130 


JSR KOLOM 


nTCC_ Ar PA IC 

uojo 4l lu Id 


1140 


JMP LOAD 


ftTSQ- r<3 ftp 
v0o3 L3 UL 


1150 RECHTS 


CMP #$0C 


AT^D- nA in 
vdjB UO lU 


1160 


BNE CHARIN 


AT>?T\_ OA 7A AT 
WiidU^ /O /O Od 


1170 


JSR SAVE 


ATCA— OA AA 
OobO HO 00 


1180 CHflRUNDCUR LDY *$00 


ATCO OA nn AT 

Oobz- 20 Do 03 


1190 


JSR CURLOC 


AT^ C TH PO 

0365- Bl E2 


1200 


LDA (CURCOP).Y 


0367- BD 2D ifl 


1210 


STA AHOLD 


ATCA OA 01 AC 

OobH- zO 01 Or 


1220 


JSR RIGHT 


ATCn AP PA 1C 

OobU- 4L CO 16 


1230 


JMP LOAD 


AT7A nn on in 
0370- 8D 2D Ifl 


1240 SAVE 


STA AHOLD 


ftT7T_ ac OP Ifl 

Oo/j- ot IH 


1250 


STX XHOLD 


ftT7t- DP OD Ifl 
vO/D OL ZB IH 


1260 


STY YHOLD 


AT7Q- CA 
UO/3 bO 


1270 


RTS 


AT7fl-. PQ 1 1 
UO /H- L J 11 


1280 CHARIN 


CMP i»ll 


ft"'!7P- nft OC 


1290 


BNE CHRDEL 


ftT7r- Oft 7ft AT 
UO/t /U /O Oo 


1300 CHARINSERT JSR SAVE 


VOOl 10 


1310 


CLC 


ATOO- AO AC 
OoBz H3 4t 


1320 


LDfl mE 


ATQA cn TQ 1A 
0oo4- hD 03 Ifl 


1330 


SBC COL 


ATfl7 Afl 
viol- HH 


1340 


TAX 


ftTflfl- Oft na AT 
UoBO iV UO Oo 


1350 


JSR CURLOC 


ftTflfi- Oft Aft 
UOBB HO 00 


1360 


LDY #$00 


oTan— OA an aa 
OoBv^ ZO oU 04 


1370 


JSR VIDPOS 


ATQA— t>1 CO 

Oow- Bl tz 


1380 INSUXIP 


LDA (CURCOP).Y 


ATQO A 0 
0O3Z 4o 


1390 


PHA 


0393- 20 98 04 


1400 


JSR VIDINC 


0396- 68 


1410 


PLA 


0397- 91 E2 


1420 


STA (CURCOP),y 


0399- 20 ft9 04 


1430 


JSR VIDDEC 


039C- 20 fl9 04 


1440 


JSR VIDDEC 


039F- Cfl 


1450 


DEX 


(m- IDEE 


1460 


BPL INSLOW 




U7Q 


JSR VIOINC 



rotttiws voor 3.0 



: HALF DUPLEX 

: HAAL KARAKTER OP VAN KEYBOARD 

: ESC ? 

: ZONIET, GA DffflR 

: ZOJA. GA NAAR'^VEflajTM 

: CNTR+N ? 

: ZOJA, 6A NAAlt CONTROL/N ROUTINE 

; (CR) ? 



: ESC~> 

: PAS BUFFERUIJZER AflN 
: (CR) IN A 

: EXECUTEER VIOEXOMMANOO 
: FULL-DUPLEX NW 
: ~) ? 



: POSITIE CURSOR 

! CURSOR 1 PIS mm 

: BEGIN V/D REGE. 

: POSITIONEER DE CURSOR IN BE^If ICEERDt KOLOR 

: LF ? 



-> ? 



HAAL KARAKTER HAAR DE CURSOR OP STAAT IN A 
BEPAAL PLAATS KARAKTER IN VIDE06Et€U6£N 
HAAL KARAKTER IN A 
EN IN AHOLD 

VERPLAflTS CURSOR 1 POS NAAR RECHTS 
GEEF A.X t Y HUN OUDE UAARDEN UEER TERU6 
BEUAAR A.X ( Y 



CHAR-INSERT ? 



: MX. BEREIK 1 REBEL (TERWIDTH-2) 

: BEREKEN AANTAL TE VERSCHUIVEN KARAKTERS 

: XaflANTAL TE VERSCHUIVEN KARftKTERS 



mmn eolnrampointer 

KARAKTER IN A 
POINTERS*! 



21i0m i@ TERU6 



: mjS VEIRAATST ? 

; INSERT HQS 191 EXTRA PifriE 
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03<B- 


09 


Z\) 




IWU 


UR |$20 


03fl7- 


91 






i<l3v 


STA (CURCOP>.Y 












IFE COMAL 










1510 


LDA iiOO 










1520 


m flHOLO 










1530 


»«• 


03fl9- 


4C 


ro 


16 

iu 


1540 


JNP LOAD 


03flC- 


C9 


04 




1550 CHRDEL 


W *$04 


03ftE- 


DO 






1560 


BNE EXIT 


03B0- 


20 


7n 

1 V 


VW 




JSR Sfl^ 


03B3- 


fiO 


uv 




1SA0 


uff mo 


03B5- 


16 






1S<)0 


ac 


03B6- 


fl9 


AF 






LDfl tUF 


03BB- 


ED 




in 


iDiV 


SBC COL 


03BB- 


OA 








TAX 


03BC- 


20 


HA 




1630 


JSR CURLOC 


03BF- 


20 




OA 


1640 MOUQflCK 


JSR VIDINC 


03C2- 


61 






1650 


LDfl (CURCOP).Y 


03C4- 


48 








PHfl 


03C5- 


20 


Q9 


04 


1670 


JSR VIDDEC 


03C8- 


68 








PLA 


03C9- 


91 






16C)() 


STA (CURCOP),Y 


03CB- 


20 


on 

70 


ftA 




m VI DI NC 


03CE- 


Cft 






171ft 


SEX 


03CF- 


10 






179ft 


BPL MOUEBAQ( 


OSDl- 


R3 






1730 

X f WV 


LDA H20 




91 






17A0 


STA (CURCOP),V 










1750 


IFE CONAL 










1760 


LDA t$00 










1770 


STA AHOLD 










1780 




03D5- 


4C 


PO 


ID 


1 r JV 


JBP LOAD 










1800 

low 












lAlft 


: tMCURLOC*** 










1 A1 1 




03D8- 


flD 


WW 


1Q 


1890 CURLOC 


LDA ECURSOR 


03DB- 


85 






1R3ft 


STA ♦CURCOP 


03DD- 


flD 


■V7 


ID 
in 


1 AAft 


LDA ECURSOR+1 


03E0- 


29 


C7 

r f 




1R5ft 

lOwU 


AND t$F7 


03E2- 


09 


DO 




1860 


ORA t$00 


03E4- 


85 


E3 

WW 




1870 


STA fCURCOPtl 


03E6- 


60 






IflflO EXIT 


RTS 








1B90 

ID Jv 


: «»»ESC~)»»» 










1900 


03E7- 


fl9 






iqiA per) 


LDA #$20 


03E9- 


20 


A? 


ftA 


1Q90 


JSR CURSOR 


03EC- 


20 


f V 


Uw 


1 jjv 3rur 1 


JSR SAVE 


03EF- 


20 


60 


03 


1940 


JSR CWRUNDCUR 


03F2- 


20 


3C 


04 


1950 


JSR STOREBUF 


03F5- 


AD 


39 


lA 


1960 


LDA COL 


03F8- 


C9 






1970 


C«P «TERWIDTH-1 


03Ffl- 


30 


FO 




1980 


BHI SHIFT 


Wt- 


20 


bv 


lb 


1 JJU 


J9( LOW 














03FF- 


20 


7A 


Uo 


/viU LiXIflHtiA 


JSR SAVE 


0402- 


AO 


m\ 
w 






LDY #$00 


0404- 


20 


no 

I/O 


n't 




JSR CURLOC 


0407- 


Bl 


F9 
cz 




ZVhv 


LDA (CURCOP). Y 


0409- 


C9 


Zv 






CNP «»20 


040B- 


DO 


n<) 






BNE EdN 


040D- 


20 


rc> 


or 

vw 


?070 


JSR LEFT 


0410- 


20 




ID 


90RO 


JSR LOAD 


0413- 


CA 






2090 


DEX 


0414- 


10 


F9 




2100 


BPL LEFTBACK 


0416- 


E8 






71 10 POL M 


INX 


0417- 


20 


7ft 




7170 


JSR SAVE 


041fl- 


fl9 


Oft 




2130 aciP 


LDA #$00 


041C- 


20 




04 


2140 


JSR CURSOR 


MlF- 


At 


DV 


03 


2150 












2160 


■ 










2170 


: ♦mESC (--♦♦« 


0422- 


09 


20 




2180 ESC< 


LDA #«20 


0424- 


20 


82 


04 


2190 


JSR CURSOR 


0427- 


20 


R8 


QC 


2200 


JSR RETU 


M2fl- 


09 


00 




2210 KDLO 


LOAtlOO 



K^IMtsl^R 



: NIET-AFDIUKBAAR KARAKTER IN AHOJ) 



: OfflR-DELETE ? 



H«0EIETE**« VERWIJDERT KARAKTER ONDER CURSOR 



I. iwrnmtir 



CURSORLOCATIE $£2/$E3 
: CURSORPOSITIE IN VIOEORM 
: VIDSMIJZER LQ 



VIDEORAN m D000-D7FF 



3ITI0NEER CURSOR AAN EIND V/E REBEL 
: BLOK 1 VERPLAATS CURSOR NARR KOLtW 79 
: SEEN CURSIR 



EOLN 
T/M EOLN 

BLOK 2 SCHUIF CURSOR NAAR LINKS. 
TOTDAT ER SEEN SPATIE MEER STAflT 
ilEDT A.X 



SPATIE ? 

BEEN SPATIE ? EOLN 
CURSOR NARR LINKS 



MODE NIET KNIPPEREN 

CUI^R TERU6 ALS BUHUE 

CHRff IN CURSOR * RISiTSHIFT * LOAD + 



SEEN CURSOR 



EXI 



CU^R NAAR KOLOM 0 
CDIinR IIQiTBHBR 



LUODSJaftftOI^A^^Op'ftAMrtft 



042C- 20 B2 04 2220 JSR CURSOR 

2230 IFE CtWflL 

2240 LDfl «i20 : ZET SPflTIE 

2250 JSR PRINT : IN KOLOW) (VANMEffi ')' PROMPT) 

2260 JSR LEFT : EN WEER TERUG 

2270 ♦♦» 

042F- 20 35 04 2280 JSR BUFRES : ZET BUFFERUIJZER OP 0 

eft®-4C C9 16 2290 J«P LQIffl 

2300 : 

2310 :B. SUBRQUnie VOOR C»RSDilBESnffiINB^ CillllM)^^ 

2320 : 

mo : tMBUFIES*** RESET BUFFERPOINTER EN LflflDT 

2331 : fl.X.Y MET (XIRSPR. yflflRDE 

2340 IFE BASIC 

0435- fl2 00 2350 BUFRES LDX i$00 ' 

2360 »♦» 

2370 IFE COHflL 

2380 BUFRES LDX i$FF 

2390 «♦ 

0437- A9 00 2m LDfl #$00 

0439- 4C 70 03 2410 JHP SAVE : RESET ft. X 

2420 : 

2430 : ♦»STOREBUF»*» SLAAT KARAKTERS OP IN BUFFER 

2440 IFE BASIC 
043C- EC 47 2450 STOREBUF CPX »BUFHIDTH-1 : BUFFER VOL ? «h«„.«. 

043E- 10 03 2460 BPL BIFFUL : ZOJA. NIETS «£ER IN KJFFER ^IJVS* 

0440- 95 IB 2470 STA tBUF.X ; OPSLflflN IN BUFFER 

0442- E8 2480 INX WFFEMIIJZEB 

0443- 60 2490 BUFFUL RTS 

2500 

2510 IFE COMAL , . 

2520 STOREBUF CMP #$00 : MIET flFWWKBfWR KflWKtER ? 

2530 BEQ INVALID 

2540 INX 

2550 STA BUJ ; OPSLflG IN BUFFER 

2560 INVALID RTS 

2570 ♦»♦ 

2580 : 

2590 : »*«LEFTSHIFT»»» CURSOR 1 POS NAAR LINKS. INCL. SAVE t LOAD 

0444- 20 70 03 2600 LEFTSHIFT JSR SAVE 
0447- 20 C2 OC 2610 JSR LEFT 
MM-4C a) l£ 2620 JMP LOW 

2630 : 

2640 : ♦»*HflLFf« ZET COMMUNICATIEKANAft. OP Hftf^HlPLEX 

044D- 48 2650 HALF PHA : RED A (COMMANDO) 

044E- fl9 00 2660 LDA «»00 

0450- 8D 41 lA 2670 STA DUPLEX 

0453- 68 2680 PLA t HRRL COmANDO VAN STACK 

0454- 60 2690 RTS 

2700 : 

2710 : *MFULL»*» FULL-DUPLEX, AFDRIWKEN OP SCHERM 

0455- 48 2720 FULL PHA ; SfltfE ft 

0456- Ag 01 2730 LDA #$01 
0458- 8D 41 lA 2740 STA DUPLEX 

04SB- 68 2750 PLfl ; fl^ITCCMHANDQ 

Wm- fiO 2760 RTS 

2770 : 

2780 • ♦♦»POSCOL*»t ZET KOLOM WflflR CURSOR IN STAAT IN TEMP <$00) 

045D- AD 39 lA 2790 POSCOL LDA COL ; IN HELKE KtLOM STAAT DE CURSOR ? 

0460- 85 00 2800 STA tTSP 

0462- 60 2810 RTS 

2820 : 

2830 : ♦*»KOLOH««« ZET CURSOR IN KOLOM BESPECIFICEEERD DOOR POSCOL. 

2840 : 

M63- 20 70 03 2850 KOLOM JSR SAVE ; SAVE X 

0466- AD 39 lA 2860 LDA Ca ; IN HELKE KOLOM STAAT DE CURSOR ? 

0469- C5 00 2870 CMP »TEMP 

046B- FO 09 2880 KQ STAND : LAAT CURSOR Df»R STAflN 

046D- 20 60 03 2890 JSR CHARUNDCUR : KARAKTER IN CURSOR + RI6HTSHIFT + LOAD 

0470- 20 3C 04 2900 JSR STORQUF . i. 

0473- B8 2910 CLV 

0474- 50 ED 2920 BVC KOLOM 

0476-fl9 00 2930 STAND LDfl #$00 « 

G4I8- 20 m ^ 2940 ^ SWE : NIET AFMtlSMR i8ti«K11R IN A 



LUODSJaftftOI^A^^Op'ftAMrtA 





AO 

Kj 


AP 


TQSn OFCTFtH) 


LDA t$4C 






AS 


nn 


WAn 
Z7DV 


STA tTEMP 


• 7FT iKPB tp TO tnn 


w/r 


AP 


rn iA 

wv ID 


9<J7n 

Z3/ V 


JHP im 




























•"CURSOR*" 


PR06RAHMFFRT MET FORMAOT V/D CURSOR 




AA 






PHA 


* SAVE MODE 


VHO^ 


n J 


00 
vn 




LDA HOA 


: ADRES VAN VDU-RE6 RIO 




AD 


nn nA 




STA AR 






DO 






PLA 






An 


ni HA 




STA RFILE 


* iilMK' TM' fits' "' ' 1 ' i'" 


A&AT- 


Dv 




JV/JV 


RTS 










JvDV 














uV f V 




«"VIDPOS*«t 


BFREKENT QBSdUTF CND.OF.LINE-1 PflSITIE 


\JhQU 


AQ 
On 




JvOv iLurUD 


TXA 






AA 
•JO 






PHA 




Zu 


QA nA 
70 VQ 


JlW LHOlLrvin 


JSR VIDINC 






PD 






DEX 






i/V 


ro 

rn 




BNE LASTCHRR 




W3J 


AA 

DO 




JikJV 


PLA 




U43D 


DO 






TAX 






AA 
Dv 






RTS 
















VERHOOGT OF VIDEQPOINTER KET 1 EN ZORGT DAT DE 








Ji / V 




♦"VIDINC*** 














VIDE0RAM6RENZEN NIET OVERSCHREDEN UORDEN. 


fUQA- 


PA 
uD 


LZ 




INC tCURCOP 


• VERftflOG E2 


AAQQ- 


HJ 




T9AA 


LDA tCURCOP 






pq 


nn 


■^91 ft 


CMP #$00 








nA 
vo 


X99ft 


I 


3NE INCH 




VHflv 


FA 


Lb) 




INC fCURCOP+1 




VHHJL 


OS 






LDA tCURCOP+l 




WH*J 




07 
Ul 




AND *$D7 


• VARIEERT VAN DO ... D7 


WHD 


AS 




79Aft 


STA »CUfH»Ptl 




(UQfl_ 
v4Na 


An 




'^97ft TWTTT 


RTS 




























**»VIDDEC*** 


VERLOOfiT DE VIDEOPOINTER MET 1 




PA 


HZ 


J J W V i UUClt 


DEC tCURCOP 






OS 


F? 

LZ 


JJiv 


LDA »CURCOP 






Pq 


FF 

rr 


■^^9ft 


C«P #$FF 




(lAOF- 


nn 


OP 




BNE DEX IT 






PA 


CJ 




DEC »CURC0P+1 




flAR'^- 


OS 


CTT 
CO 




LDA ♦CURCOP+1 




nARS- 


PQ 


PF 


JJOv 


CNP »$CF 


: BUITEN VMOitm ? 




nn 


OA 


■^T7ft 
JO/v 


BNE DEXIT 


; iESli« lll£R BIJ D7FF 




H J 


n7 


■'[Tftft 


LDA »$D7 


AARR- 


AS 






STA iCURCOP^l 






ov 




-TAftft npyTT 

J4vv 1/UA 1 1 


RTS 




























EDIT-COMBANDO'S VOORftFSEGAAN DOOR ESC GF mm (*0E) 












(CNTR+N) IS 


5E INVERSEFUNCTIE VAN (ESC) 








TAAn 














7ASft 




**«ESC 6.* 


SCHUIFT DE CURSOR 12 REGE.S Omm 


nARP- 


Hi 


no 




LDX tlO 




rtAPrt- 

\JhLv 


AQ 
OH 






TXA 




ftAPI- 


AA 




TAArt 


PHA 








sp nF 


■^A<in 


JSR UP 


; CURSOR 1 REBEL 0MH006 


OAPS- 


AA 
DO 




Tsno 


PLA 




rtAPA- 


00 
Mn 




■^sio 


TAX 




nAP7- 


PQ 
LH 




'^S9ft 

J JX.V 


DEX 




AAPA- 


in 


FA 

rD 


JJJU 


6PL UPSIDE 


; TOTDAT 11 POS. 0MH008 GEIMN IS 




wit 






jMP vpmm 




























*"ESC V. V VEIRAflTST JK CURSOR 12 POS. ONJWG 




ni 


OR 




LDX tU 




fiAPF- 


AQ 

On 




35fl0 DOWNSIDE 


TXA 






/lA 
HO 






PHA 




rtAni- 




nA fip 


TAftft 


JSR DOiM 




04D4- 


68 




3610 


PLA 


: OVEftf^LOM STOPCONDITIE 


04D5- 


AA 




3620 


TAX 




04D5- 


CA 




3630 


DEX 




04D7- 


10 


F6 


3640 


BPL DC»^NSIDE 


: 11 REGELS OUAAB 6EBMN 


04D9- 


4C 


4D 03 


3650 


JHP DOWNSTAIRS 


: EINDPOSITIE 








3660 














3670 




»«ESC A »« 


HIJZI6T ALLE KLEINE LETTERS IN HCOFDLETTERS 


0«BC- 


20 


70 03 


3GS0 


JSRSflVE 





24 



LUODSJ8ftftO|^A5:jOp'ftAMrtft 



04DF- 20 
04E2- C9 
04E4- 30 

04Ee- eg 

04E8- 10 
04En- 29 
04EC- 20 
WEF- 20 
04F2- 20 
04F5- flD 
04F8- C9 
04Ffl- DO 
04FC- 4C 



60 03 

61 

06 

7B 

02 

DF 

3C 04 
&4 04 
34 13 
39 Ifl 
46 
EO 

E7 03 



04FF- 
0502- 
0505- 
0507- 
0509- 
050B- 
050D- 
050F- 
0512- 
0515- 
0518- 
051B- 
051D- 

asiF- 



20 70 03 
20 60 03 
C9 41 
30 06 
C9 5B 
10 02 
09 20 
20 3C 04 
20 44 04 
20 34 
flD 39 
C9 47 
DO EO 
C E7 03 



13 
Ifl 



0522- fl9 14 
0524- 65 00 
0526- 20 7E 03 
0529- fl5 00 
052B- E9 01 
052D- DO F5 
052F- 4C 7B 04 



0532- 
0534- 
0536- 
0539- 
053C- 
053E- 
0540- 
0543- 
0546- 
0548- 
054fl- 
054C- 
054E- 
0551- 
0552- 



0555- 
0558- 
055fl- 
055C- 
055F- 
0562- 
0565- 
0568- 
056fl- 
056D- 
0570- 
0573- 
0576- 
0579- 



fl9 48 
85 00 
20 70 03 
20 60 03 
C9 20 
DO 12 
20 44 04 
20 BO 03 
AS 00 
E9 01 
85 00 
FO 03 
4C 36 
18 

4C 7B 04 



05 



flD 38 Ifl 
C9 02 
10 03 
20 31 06 
20 5D 04 
20 2fl 06 
20 D8 05 
09 FF 
20 E5 05 
20 IB 06 
20 22 04 
20 63 04 
20 CO 16 
20 4D 04 
20 70 03 



3690 
3700 
3710 
3720 
3730 
3740 

3750 UNCHMWED 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 ESCa 

3860 

3870 

3880 

3890 

3900 

3910 

3920 SfltC 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4000 

4010 ESCSP 

4020 SPflI£ 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 CMTRNSP 
4120 

4130 SPflCEDEL 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 CftNTCONT 
4250 NOSPflCE 
4260 
4270 

4280 ESCI 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 



JSR CHARUNDCUR 
CMP t'a' 
m UNCHANGED 
OP l$7B 
BPL UNCHANGED 
AND t$DF 
JSR STOREBUF 
JSR LEFTSHIFT 
JSR PRINT 
LDA COL 

CMP «TERUIDTH-2 
BNE ESCA 
JNP ESC) 



im KARAKTER WDER CURSOR IN A 
FILTER KLEINE LETTERS go** 

mim LETTBi mmr HajrajnER tr^'^ 



mm El T/N n nsii mim 




VERUIJDER OORSPR. KARAKIGR 

PRINT NiEiM mum 

TOT EOLN 



■>..i>i. 



»«ESC a »♦» VERVANST ALLE KLEIK LEHERS DOOR HOOFDLETTERS 
TUSSEN OE mm EN NET IIHBE VAN DE WB. 
JSR SAVE 
JSR CmRUNDCUR 
CMP #'A' 
BHI SAME 
CMP i$5B 
BPL SAME 
ORA «$20 
JSR STOREBUF 
JSR LEFTSHIFT 
JSR PRINT 
LDA COL 

CMP iTERWIDTH-1 
Bl€ ESCa 

m Esa 



SELECTEER HOOFDLETTER (A..Z = 41 T/M 5A ASCII) 

1,. r-,- (.-,. 



KLEINE LEHERS UORDEN HOOFOLEHERS (65=1) 



TOT EtLN 



: »HESC SPATIEB«J< m INSERT 20 SMTIES 

LDA #20 
STA ♦TEMP 
JSR CHflRINSERT 
LDA »TEMP 

SBC 1*01 : 20 X VERLflGEN 

BNE SPACE 

JMP RESTEMP : OORSPR. WAARDE TERUG IN TE«P 

♦♦♦CNTR+N SPATIEBALK»«» VERWIJDERT SPATIES TOT 

EERSTE NIET-gPfiTIE KARAKTER 



LDfl ITERHIDTH 
STA ♦TEMP 
JSR SflVE 
JSR CHflRUNDCUR 
CMP »$20 
BNE NOSPACE 
JSR LEFTSHIFT 
JSR DELETE 
LDfl ♦TEMP 
SBC t«01 
STA ♦TEMP 
BEQ CANTCONT 
JMP SPflCEDEL 
CLC 

JMP RESTEMP 



SPATIE ? 



VERHIJOER DIE mm 



OVERFLOW STOPCONDITIE 
ELIHINEER N06 ICER SPATIES 



.V 



• ♦♦♦ESC I ♦♦♦ SCHAKELT OVER VAN EDIT/UINDOWMODE NAAR D£ INSERT 



LDA IICINE 
CMP »$02 
BPL DIRECT 
JSR TOOHIGH 
JSR POSCOL 
JSR POSLIN 
JSR UINDOWMES 
LDA #*FF 
JSR MESSAGE 
JSR REGEL 
JSR ESC( 
JSR KOLOM 
JSR L(MD 
JSR HALF 
^ SflVE 



HELKE REGEL ? 
; RE6EL ) 1 ? 
; ZOJfl, OliECTE TQE6RN6 TOT Ii| 



: INSERTMODE fllERT 

; CURSOR TERUG OP D£ JUISTE REKl 

: EN IN DE JUISTE KOLCW 



LUODSJ8MO|^A5:}Op'ftAMrtft 



E 5 □ S 



KEIMMER 



057F- 


20 ft£ 12 


4430 


JSR RECHA 




0582- 


C9 OD 


4440 


CMP t$OD 


; (CR> ? 


05W- 


FO 2B 


4450 


6EQ EDUIST 


X TERL6 NRhR EU/UI NSOE. EN SLfl REKL OP IN BEHEUSEN 


0586- 


C9 OC 


4460 


CMP i$OC 


. — > 


0588- 


FO 2D 


4470 


BEQ CFOR 




058fl- 


C9 08 


4480 


CMP i$oe 




058C- 


DO Oft 


4490 


BNE EDKEY 




058E- 


20 34 13 


4500 


JSR PRINT 


• EXECUTEER BftCKSPftCE 


0591- 


20 BO 03 


4510 


JSR DELETE 


: EN TERUo kJ SCHUIFDEEL (D. I. CURSOR T/N tuLN) 


0594- 


Cft 


4520 


DEX 




0595- 


BS 


4530 


CLV 




0596- 


50 E4 


4540 


BVC NCHflR 




0598- 


C9 20 


4550 EDKEY 


CMP #$20 




059ft- 


10 09 


4560 


BPL DVFLCHECK 


; flSCII (20 IS EDITCOHWWIDU 


059C- 


20 06 03 


4570 


JSR EDIT 


; ZOJfl, VOER EDITCOmfwDO UIT 


059F- 


20 4D 04 


4580 


JSR HflLF 




05fl2- 


4C 7C 05 


4590 


JMP NCHflR 


; TERUS NflflR INPUT 


05(15- 


20 7E 03 


4600 OVFLCHEDi 


JSR CHflRINSERT 




05A8- 


20 3C 04 


4610 


JSR STOREBUF 


; SLfl K> IN BUFFER 


05flB- 


20 34 13 


4620 


JSR PRINT 


; EN ZET IF W^m 


05flE- 


4C 7C 05 


4630 


JMP NCHflR 




05B1- 


20 BD 05 


4640 EDUI5T 


JSR NOMENO 




05B4- 


4C 18 03 


4650 


JMP RET 


: VKR RETURN UIT 


0K7- 


20 BD 05 


4652 CFtffi 


JSR NOMENO 


; CURSOR TERUG NflflR BEM. REBEL 


05Bfl- 


4C 60 03 


4654 


JMP CHflRUNDCUR 


: CURSOR 1 POSITIE NhRR l^^fTS 


05BD- 


20 5D 04 


4660 MMENO 


JSR POSCOL 


; NORMflL-MESSflGE-NORMK. 


05C0- 


20 2fl 06 


4670 


JSR POSLIN 


: MELKE i£6bL ? 


05C3- 


20 70 03 


4680 


JSR SAVE 




05C6- 


20 DB 05 


4690 


JSR UINDWHES 




05C9- 


20 EO OC 


4700 


JSR ERLNX 


: VEEG DE EERSTE 2 REGELS V/H SCHESM SCHOON 


05CC- 


20 IB 06 


4710 


JSR REBEL 


: ZET CURSOR TERUG OP LflflTST BEHERKTE REBEL 


05CF- 


20 22 04 


4720 


JSR ESCi 


; BUFFERRESET + NWLN 


0S92- 


20 63 04 


4730 


mmm 


; ZET CURSOR IN OE JUISTE KOLOM 


CiDS- 


4C CO 16 


4740 










4750 










4760 


: «««UIN0ONNiSMt VEEGT 60VENSTE RQEL V/H SCHEIM SeHOON 


05D8- 


20 CB OC 


4770 UINDOWCS 


JSR HOCU 


: HOME CURSOR 


05D8- 


20EOOC 


4780 


JSR ERLNX 


: LINE ERflSE 


OSK- 


20 flS OC 


4730 


JSR BETU 


: CURSOR NflflR KO (KO=KOLOI>l 0) 


05E1- 


20B3 0C 


4800 


JSR f&S 


: NIEUI^ REBEL 


05E4- 


60 


4810 


RTS 








4820 


« 








4830 


; «»«MESSfl6E««* PRINT MEDEDB.IN6 EN Ol^ffiERSTREEP DIE 



4840 



05E^ 
05E6- 
0X8- 
05Efl- 
OKD- 
05EE- 
05F0- 
05F3- 
05F4- 
05F5- 
05F6- 
05F9- 
05FC- 



13 



n2 48 
A3 87 
20 34 
Cfl 

00 Ffl 
20 C8 OC 
68 
Afl 
E8 

m ei 06 
20 34 13 
C9 03 
BOFS 



0601- 49 
0604- 65 
0607- 20 
060A- 64 
060D- 47 
0610- 45 
0613- 4F 
0616- 41 
0619- 



6E 73 
72 74 
6D 6F 
65 03 
49 56 
20 43 
4D 4D 
4E 44 
03 



mlb WSSSUBE 

4870 

4880 

4890 IMMERSCOIE 

4900 

4310 

4920 

4930 

4940 

4^ STRIN6 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 TEXT 



5040 



fl=FF INSERTWDE 
flsOB BIVE COWUWD: 

; RED MEDEDELlMBftflNWIJZER 
I ONI£RSTR^ JiypEOaiNG 



LDX tTERUIDTH 
LM H87 
JSR PRINT 
DEX 

BNE UNDERSCORE 
JSR HOCU 
PLfl 
TAX 

INX 

LDA TEXTJ 
JSR PRINT 
CMP #$03 
m STRIN6 
RTS 



HAM. STRIN&INDEX OP 



; TEKSTSTRIIiES 

.BY 'Insert Mde' $03 



.BY '6IVE CnWANO:' $03 



5050 
5060 



••fREBEL«i POSITIONEERT DE CUifiOR OP OE l£KL, 



26 
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5 D S 



061B- 20 B7 OF 
061E- CE 79 Ifl 
0621- 30 06 
0623- 20 38 OF 

0626- IB 

0627- 90 F5 
0fi29- 60 



062A- AD 38 Ifl 
0621)- 8D 79 Ifl 
0630- 60 



0631- 20 5C OF 
0634- 20 5C OF 
0637- 20 B3 OC 
063ft- 20 B3 0C 
063^ SO 



063E- 
0641- 
0643- 
0645- 
0646- 
0646- 
064E- 
0651- 
0653- 
0656- 
0659- 
06SC- 



flD 38 Ifl 
C9 02 
10 03 
20 31 06 
20 5D 04 
20 2ft 06 
20 D8 OS 
fl9 OB 
20 E5 05 
20 35 04 
20 CO 16 
20 00 03 



065F- C9 54 
0661- DO 04 
0653- fl9 50 
0665- 85 17 



0667- C9 
0669- DO 
066B- 20 
066E- 20 

0671- 4C 
0674- C9 
0676- DO 
0678- 20 
067B- 20 
067E- 4C 
0681- C9 
0683- DO 
0685- 20 
0688- 20 
0688- 20 



51 
09 

E6 OC 
7B 04 

5F 10 

44 

09 

E5 OC 
7B 04 
4E FC 
OD 
D7 

IB 06 
22 04 
63 04 
CO 16 



0S91- 
0694- 
0697- 
069fl- 
069D- 
06gF- 
06A1- 
06fl3- 
06fl5- 
06fl7- 
06fl9- 
06%- 
06AE- 
06B0- 
06S3- 



20 34 13 
20 70 03 
20 AE 12 
20 55 04 
C9 30 
30 23 
C9 36 
FO IF 
C9 39 
10 IB 
20 34 
C9 34 
10 06 
20 25 04 
4CC0 16 
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5070 

5080 REBEL 

50% DECniLE 

5100 

5110 

5120 

5130 

5140 ORIBIN 

5150 

5160 

5170 POSLIN 

5180 

5190 

5200 

5210 

5220 TOQHiai 

5230 

5240 

5250 

5260 

5270 

5280 

5290 ESCC 
5300 
5310 
5320 

5330 ENTERCH 

5340 

5350 

5360 

5370 

5380 

5390 

5400 imn 

5410 

5420 TERNm 

5430 

5440 

5450 

5460 

5470 QUIT 

5480 

5490 

5500 

SSIO 

SS20 OlSflS 

5530 

5540 

5550 
5560 

5570 UIND 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 ESCHC 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5B00 



JSR HCWE 
DEC VE 
BMI ORIGIN 
JSR CURDN 
CLC 

KC DECRILE 
RTS 



KSPECIFICEERD DOOR VE. (VErticale Dositie) 
; VERTIKflLE REBEL -1 
; mm T.O.V HOHEPISITIE 



; *HPOSLIN«*« BBMART POSITI£ CUHRTIEVE REEa IN VE 

LM INLINE 

STAVE 

RTS 

• tMTOOHieHMf 6ENEREERT 2ti»H006^2*0MLAA6 

JSR UP 
JSR UP 
JSR FEED 
JSR FEED 

RTS . 



; ♦"ESC C»»* 
LDfl INLIie 
CMP «$02 
BPL ENTERCM 
JSR TD0HI6H 
JSR POSCOL 
JSR POSLIN 
JSR UINDOUMES 
LDfl t«OB 
JSR MESSflSE 
JSR BIFRES 
JSR LOflD 
JSR EDITOR 
IFE BASIC 
CNP #'T' 
BNE QUIT 
LDfl i*50 
STfl ♦$17 
«♦♦ 

CMP I'Q' 
BNE DISflS ; 
JSR ERSCRX 
JSR RESTEW) 
JNP HtmiTOR 
CNP #'D' 
BIC UIMO 
JSR ERSCRX 
JSR RESTEMP 
JNP $FC4E 
CNP »$0D 
6I€ IMHJT 
JSR REBEL 
JSR ESC( 
JSR KQLOM 
JNP LOAD 



VERLEENT TOESflNG TOT DE CO««flND-KODE 
; STAAT CURSOR OP HEGEL 1 OF 2 ? 

; ZOJA, DIRECTE T0E6AN6 TOT CO 

; vERscHuiF tscipyi — 



BIVE CQNMnNS 

INPUT OMNRNONOOE 
TEMINflL MIOTH > 80 (fSO) 
TERNINRLBREEDTE « 80 KMAKTEflS ' 

NflflR JUNIOR-NONITOR 
'SCREEN-ERASE' 

ZET OQIISPMmKELlJKE UAARDE IN TENP 
6A NAAR DISflBSBOLER 



; DISflSM/ASCII-DUNP 
; 0> 



: +++ESCAPE 
JSR PRINT 
JSR SAVE 
JSR REClffl 
JSR FULL 
CNP »'0' 
BNI RESESC 
CNP t'6' 
BEQ RESESC 
CNP I' 9' 
BPL RESESC 
JSR PRINT 
CNP I' 4' 
BPL CORR 
JSR BUFRES 

m im 



ROUTINEt^ OECOOATIE KOWANDO'S 
ZET BE E9C-VLfl6 



KARAKTER VAN TQETSB0OIS) 

FULL-DUPLEX 

)=0 ? ASCII-CIJFER 0...9 ? 
ZONEE. RESET K ESCflfmflB > 

imh IS m smmmm 

VOER HET VIDEOCONNANDO UIT 
REBEL OF SCHERHCONNANDO ? 

EN BUFFER AflN BE6IN NIEUUE REBEL 
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KEIMMER 



20 60 (0 
06^ 20 44 04 
06BC-fl9 00 
06BE- BS 2D lA 
06C1- iC CO 16 
06C4- 4a 
06CS- 20 13 IS 
06C8- 68 
06C9-C9 0C 

decs- DO 

06CD- 4CE7 03 
06DO- C9 08 
06D^ D0 03 
06D4- 4C 22 04 
06D7- C9 41 
0609- DO 03 
060B- 4C DC 04 
06DE- C9 61 
06ED^ D0 03 
im- 4C F 04 
06E3- C9 20 
a6E7- DO 03 
06E9- 4C 22 OS 
OGEC- C9 5E 
06EE- DO 03 
06F0- 4C BE 04 
06F3- C9 36 
06FS- F0F9 
06F7- 29DF 
06F9- C9 43 
06FB- D0 03 
06FD- 4C 3E 06 
0700- C9 56 
0702- DO 03 
0704- 4C CD 04 
0707- C9 49 
0709- DO 03 

mm^mmm 



070F- 20 70 03 
0712- 20 4D 04 
0715- 20 8E 12 
0718- 2O SS 04 
071B- C9 20 
071D- 00 03 
m 22 05 



5810 CORR 

SB20 

3830 

SB40 

5850 

9BGB 

5870 

5880 

5890 

5900 

5910 

5920 lEXT 

5930 

5940 

5950 NEXTl 

5960 

5970 

5980 NEXT2 

5990 

6000 

6010 NEXT3 

6020 

6030 

6040 ICXT4 
6050 

6060 DEL6 
6070 NEXT5 



mwm 



6100 
6110 
6120 

6130 lexm 

6140 
6150 

6160 NEXn 
6170 

iii»ieiB 

1200 
S210 

6220 CMrUN 

6230 

6240 

6250 

6260 

6270 

mo 

6310 
6^ 
6330 
6340 
6350 
6K0 
1370 



JSR CHMWCUR 
JSR LEFTSHIFT 
LOA {$00 
STfl flHOLO 
JNP LOAD 
PHA 

JSR COMCOC 
PLA 

CM) HOC 
BNENEXT 
JMP ESC) 
CHP *m 
BNE lOTl 
JMP ESC{ 
CUP i'A' 
BNEieT2 
JMP ESCA 
OtP t'a' 
BNENEXT3 
JMP ESCa 
CMP f«20 
BNE NEXT4 
JMP ESCSP 
CMP WS£ 
m NEXTS 
JMP ESC6 .. 
CMPi'6»' 
BEQ DEL6 
m i«DF 
CMP t'C 
BNE »EXT6 
JNP ESCC 
CNPi'V 
BNE NEXn 
JNP ESCV 

CH» rr 

M NEHS 

JNP em 

RTS 



/CORRECTIE OP PMV VIDEOCONMfWDO' S 
VERWIJDER PNV-CIJFE8, im BSWNEIW 

TERUG NflflR BASIC 

RESET DE VIDEO>«M>L£RS ESC-VLAG 

~> ? 

A ? 
a ? 

SPATIE ? 

~) ? 
6 ? 

kleine letter Norden HOOFDLETTERS 
C,c ? 

V,v ? 
I,i ? 



: +++CNTR« CONWNDO-DEKODER+++ 
JSR SAVE 
JSR mjF 

JSR RECHA I IMMKI IM A 

JSR FULL - . ^ -r-^^.i^i* 

CHPI$20 imiE7 

BNECaNMAND2 

JMP CNTRNSP 

RTS 

ALL COMWWIDS ARE SHED-COMPATIBLE 

PRINCIPE EL. ROUT /SOFFAU/ 

COPYRIGHT ALL ROUTINES BY B. Di BRUI!€ O'LAND 

BASED ON m UNIVERSITY OF SHEFFIELD EDITOR V3.2.3 

MADE IN JANUARY 1985 

(P 

// 



BQORN M0N65 

Iwf4.»!!!°K^^^°°^F software ar^ contpollercard developed for Elektor'f CPU/VDU- 

reldy rS^;s°bJ many^of usf *^ ^'^^^ Visscfiedijk and fldri Hinkel, al- 

Now Erwin Visschedijk ittpleeented M0NS5 on t*ie ACORN ATOM cowinitep, " ?iiTtf wrote a 
manual of 34 pages. i- i 

,^,2" ^^5° *° implement a sophisticated monitor on your flCORN ATOM then 

call Mr. Erwin Visschedijk, Drakensteyn 299, 7608 TR Almelo, The Netherlands, 
for more informations. ' 
We allready published about the MQN65/D0S65 system in eur earlier editions. 



28 



LUOD'SJBMOjjAllOp'MMM 

■ »e 

- GRAPHICS ill APPLESOFT 

' '■ ■ '■ , 6 .'j ' , , ■ • ■ 

By H. Bosch 

Twente UniveFsity jBf-T«l^1(^ 
Postbox 217 
.- 7500 AE Enschede 
The Netherlands 

INTRODUCTION ' ' ' ' • . : ■ . . 

It is often very useful to present the results of experiments or calculations 
in graphical form to assure readability. Increasing numbers of microcomputers 
are used in small scale automisation projects where the need for 'easy-to-uSe* 
graphics is also evident. 

In this pai>ef ; a nie^lM language subroo^M'Whi^^^ out all the ' 

neceS^iry functions td p^#are a graph Is destribe^f scalfrn^ and plotting of t%e 
axes: and plotting of the functions to be >6pt^esented. The text cati be put 
anywhere. This subroutine may be called for either in direct mode or from the 
user's Applesoft program by using a statement which starts with the ainpersand & 
conmand followed by a reserved word, the token of it specifying the particular 
action to be taken. The keywords allowable so far are &HLIN, &VLIN, &PLOT and 
&DRAW. The syntax and use of each of these commands will be described separately. 

The extensive use of the monitor, floating point and graphic subroutines 
already present in the Apple's ROM made it possible to develop a fast and compact 
subroutine which ogcupies only about 1.5 k bytes Qf RAM space, and includes a 
shape table with a limited number of 32 characters for numerical notation and 
plotting purposes. Once the machine language subroutine has been Implenented, 
any existing Applesoft programs can be extended very easlvVy to give a graphtcaT; 
representation just by adding two or more of the &-copiands mentioned above. 

STRUCTURE OF THE PROGRAM 

The compTet% m^iclTWe language program is given in figure 1. Its iiiaih details ' 
will be discussed successively. 

The & command causes an unconditional jump to an address pointed to by a vector 
in address 23F5. This ampersand vector is set in line^63 by BRUNning the prograr 
just once. This initialisation causes also the High MEMory pointer to be set to 

the start of the program and the pointer in 2E8 to be set to the end of the program 
where the shape table starts. 
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EI^E 5 m ir^ KEMMER 

The ampersand con^hd has tCf be fdllewed at least one option, MlN^ldi causes 
a subsequent jump to the appropriate part of the program, depending on the token 
for the keyviK>rd used. The prograiB conprts^ of the folloMing main subroutines. 

&HLIN (&VL,IN} causes a horizontal (vertical) axis to be scaled and dram and 
supplied with a nuneal value at each division. This part starts at 11ne^ S27. 

&PLOT causes a particular symbol (one out of five possible) to M drawn at a 
given coordinate related to the axes already scaled and starts at line ^ 432. 

&DRAU causes the desired text to be put at any place in the High RESolution 
screen and starts at line ^ 468. 

The labelling of the entry points of the monitor, floating point and graphic 
subroutines present in the Apple's ROM has been done according to W.F. Luebbert's 
"What's Where in the Apple?", MICRO INK inc., 1981. The wrong use of keywords 
and/or. ,Q|)t:jps,.refyUs^, 1)5 ^toe, §,YP^, EfUiOR^^brough line fi^ 524. All other possible 
errors are dealt with by Apple's Error Handler. 

SYSTEM REQUIREMENTS 

'Graphics' Is written 1n,««^pbly langv»iPr (Applets. Teel Ktts),fnd can be run 
as is on 48K systems. To run on other systems the program Should be re-ORGanlzed 
at 94000, Just above High RESolution page 1. 

SYNTAX OF THE HLIN STATEMENT 

The syntax of the HLIN statement is 
SHLIN <aexf>r 1, aexpr ^ * 
with aexpr 1 < aexprZ and /ttl(«i%ff7 > > .03 

description following appendix N of the Applesoft Basic Programming Reference 
Manual . 

Violation of the first limitation results In SYNTAX, E?|!?t, The use of smaller 
values, as Indicated by the second boundary equation, restjits inly in Inslfiilffeaftt 
vaTi«ft$ ^fma ti^ mm: due to a rounding-off procedure, the smallest increase 
amounts to .01. When smaller values ii^ encountered, a suitable power of 10 will 
be effective. 
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A- suitable nuniber of dlvislotrs is cAleulatc^ by the scftllng.eouttne In line 

327.1 Tttri^ (^rameters*; J, SP an4 Hi.arv chosen in sueh/a way thet thevrtnge- 
aexprZ-aexprl will cover at least 7S% of the axis. J can aa»unt to ItH^, er < 
SP ranges friQW 4f tf>;:8« H beins f power^of 10^, At » suitable conbinattoR of J ^ 
SP and H, the lowest valae.o* the axes is ea!c«lited asvLO H>*'lilT i -t- -1- 
(aexprl/J/H). The highest value is then given by HI = LO + J * SP * H, SP being 
the number of parts in which the axis is divided. The method applied to find a 
suitable set of J,SP and H is not very sophisticated but is basically a matter of 
trial and error. An outline is given in figure 2. This method works well if 
SGN (aexprl) = SGN (aexpr2). If this is not true and if ABS (aexprl)«ABS (aexpr2). 
then the 75% condition might not be met, except for reUti»ely-high values of SP. 
That is why the maximum value of SP is held at 8; higher values result in poor 
readability* . ^ : . ;1 

The axes are drawn through QRAWAK (Hn«^jS76 Injfig^l) am* the relevant 
values are plotted along the axes (e.g. in figure 3) by SUBSSR (tine 4Mc240>> and 
DRWSiP (line ^ 275). The; parameter COUNT detects the end of the axis to pot the 
highest, value and the final transverse line there. ■ 

The use of *VlIN-^<aex(wfl, ie«ii?2*n^r-draw1(it tfvertica 

analogously. The coordinates of the origin are determined by the data in lines^M' 85 

and 86. The values can be changed by appropriate POKE'S to the relevant addresses 

before one of the ampersand commands has been used. The same applies to the length 

of the axes as given in line-r'^'SB and 84. The actual length depends on the number 

of scale parts and is accessible from the Applesoft program through PEEK'S to 

2428(x"axis) or 2429(y-axis) . Once both a horizontal and a vertical axis have been 

drawn, an axis parallel to one and/or the other axis «ay be drawn by the statedwiit 

&VLIN and/or &HLIN. An example is given in figure 4. 

The user roust set SCALE to 1 before applying &HLIN and &VLIN to ensure that the 

subscripts are drawn at the right size. This condition is not set in the program 

because other subroutines also make use of SHAODR (line:^ 29g) with possible , 

other VI 1 Me of SCALE » . , - 

SYNTAX Cr THE DRAW STATEMENT 

The DRAW statement causes text to be draum on tiiet High RESolution grapt^ic fage^ 
The syntax of the DRAW statement is . >. ■ 1 - . 

iDRAW String?, X|Y^aexprl, aexpr2 



The opttoB X (Y) pats, the string right along thie X (?) axis. If weittef X or Y 
is pmmtiti ^roopdi nates w<i 11 he asswMd irhich serve as the startlhf ptirtt for the 
first cbaracte*' in the string, 

Applesoft does not^allOiif one to float a stHng fran the flOatl^ f61tt into 
the strtii|ilttf^ . aiere t*»ij'tw*et; e^iFttfSe thi EXPRESSION TO 
CammX^mmr f^safts. To overcowia tWis limitation, the appropriate error flag is 
reset in line:;^ 510 each time the string buffer is used. This does not effect 
subsequent statements. In the example given in figure 5, SCALE was set to 1; other 
values may be used. " 

' ' '"/- 

SYNTAX OF THE PLOT STATEMENT r ■ 

The PLOT statement is used to PLOT a symbol at any position in the High 
RESolutiion page. Ihe syntax of the JL€T atatem«nt Is 

&PLOT aexprl, imxptZ, 0|1)2|3|4 
The first two vaHi^ gt»e the coordinates of the symbol to be plott^ relative to 
the axes already scaled, while the last value serves as a plot code for the synsitol 
to be used. Five tbotees are availi^le^ Ait'ii^f feitfin ts gfvefl *fn flgure 'Sai ' 

Tiw^tot^codiM 2,3 and' 4 are all based on the same shape ^^M^ 30 (see next para- 
graph). The top line of the graph in figure 9 shows the result of using SCALE = 2. 

There is also the possibility of using the normal HGR commands as e.g. HPLOT in 
relation with the axes used. This needs the conversion from scaled coordinates 

into HGR coordinates. Assume a value H has to be expressed in a number of dots: 

H = HU - (H-LO) * L/(HI-LO) 
where r, 

H0 = coordinates of origin in dots , , , ■ . . ,■ . 

L = length of axis in dots 

LO " lowest value 

HI * hfgftest value 

LO and L/{HI-LO) are accessible and their S bits addresses nay be read from 
lines ^ 188 and 189 (figure 1). For the Y-axis, the last value Is stored with an 
opposite sign to satisfy the condition that the origin of the Hl^-screisfl Is fn the 
upper left corner. Thus the equation above applies for both X- and Y-axes, s^ 
figure £i for details. The values of the scale lanflii lii^ lii PEEKed from address 
mi 789; if desired, fie Iftte ^ 46. 



' TABLE ^ . f - - 

A shape-table consists tff'w nuiiier of p1ot-cd<ie$ <teffnirtg one brmore stirpes:: 
The building of a shape-table and its use In Applesoft progran^ f$ ^311 dbbumented 
tn ttte Appl^@ft a»iiHt»1. TNus, • shap£-tltbte has bten Uri sudi i 

that {>' far liM^ dl;§fts^nd l^tsts, «h# end'-polHf of the HRS-^ufser eofnct^AeesrVflth 
>th6 sta!rtfrig?p<iiRf of tlie ifext syMboT MhlcH will ev«ntvtil%^ ^I'lA^v TMs ah^ 
'the tise'^of the shape-tab^tw ffm a machine language StilH¥otifltie ftiry simple. Onai thi 
graphic cursor has been positioned by HPOSN (line:^ 271), subsequent DRAW state- 
ments (line^ 309, called from DRWSHP in line^ 275) result in a one-line text 
(the direction of it determined by the ROTation) without any further positioning 
of the cursor being necessary. 

The construction of a shape-table is rather time consuming, expecially when the 
shapes must hold their form At any value of the SCALE factor. That Is why only a 
limited number (28) of ASCII characters jtre present In the shape-table; as given J n 
figure 7. Te.'idsittif^ itdw eharatetet^ >pe«SMt(:4it4f{isyilu^ MCll jcodes 

are given at the end of the table. The actual choice. of characters has been made 
with respect to the Dutch language, ti» American user will probably miss e.g. the 

X and y. The U$| .fe^ shapes 9tre meiint for p^lottlitg purposes and do not have an 

ASCII code. 

The shape-number of all available symbols may be read from HfU-f« 6.''l||pt^ 27 
moves the cursor , one place to the right;. at BOT « O ^thf <:or«;i^)p^||ng ASCII code 
being 20), wheire as the 'ItSt symboil indi«bs>4li#tursor Iri the Spposlie directldhi 
This last feature is used to create an INVERSE mode, as shown In figure 9, Tine 
#=1^20. The use of shapes #= 29 and 30 does not change the cursor position. 

USE OF THE PROGRAM . r > ^ 

The machine language gr^a^ ^fl^urf IJ st^irts tt * 9055^and has a len|th of 
% 431 hex. bytes. After assembliftg, the OBJect file Is loaded. Enter the monitor 
by typing CALL-lSl. 

After the appearance of the asterisk, the shape table (figure 7} can be entered 
into memory right behind the program, starting at t 9486. Consult page 44 of your 
Apple Reference Manual for details. Now BSAVE the program. Including shape table 
and ASCII codes of symbols present, by 
BSAVE name. OBJ. A?9055.L$5AB 



From now on, the program and the tables are fixed together, the starting address 
of the latter determined by the address of the last label in the progran, Incireased 
by one. Initialisation is carried out by the S'tatenent 

either in cWri^t or deferred ipisde, AAlint t*is line to your HEL,LOiPMPegrw r«sul|s 
in autanatlc Intttalis^tiois each time POS 1« booted. Also the; High NPory pointer 
Is $et below the prc^ram to protect this part of RAM spmx. Fli^ily, it should be 
raaarked that the totaV lensth of 1A51 bytes ts small eifQugh to $ttre the program 
in an expan^toji (E)sP^ on a periphal card. Page 84 - ^ Iffrtt's Etof^w^i Minual 
shcms Ikw 14 enable '^t 

r 

DEMONSTRATION OF THE FEATURES 

A complete Applesoft prograun, including all the features 
described above, is given in figure 9. It consists of two 
:f##'t9« lit ''tiMl il,ir«t pitftr • #aa#id sinusoidal curve is issiloa- 

value returned by the RANDOM generator. The coordinates of the 
points to be plotted are printed on the screen by means of a 
simple formatting subroutine and stored in the two arrays given. 
In iine ^ 250~2€0, the lowest and highest value of the ordinate 
are traced. The values alonf the ^-exes range froBi zero to 
XHdine #300) . 

These values are used in the second part to scale the graph 
(line 330). The Y-axes is extended to show all possible plot 
codes in >at-eilel curves (lihe '# 370). The top otiirve In 

Lines ji^ 390-410 are self-explanatory, feut the use of shape 
31 in line ^ 420 may need some amplification. The High GRaphic 
cursor starts where the next symbol would be DRAWN and ends 3 
positions to the left on the same line. Thus, the cursor stoves 
backwards^ the mxsims e£ si^e^miftt ORAWings depending on the 
area to be covered. The use of XDRAW in stead of DRAW results 
in the INVERSE mode. Finally, line #"440 shows that some plot 
symbols are suitable to be enlarged. 

Now you can try for yourself 'ilm 'itmas^l-mtt given ti^fei^er with 
'#tltels«*; iic##irdi^' to- fmas otm needs ' and intt^rests . 
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SOURCE FILEf 


BRAPHICS 






Ft fiiii^P 1 P>*nnpam 1 1 <; 1 1 nn 
ri«|uic X ri 1 aiii i 131*11 lu 


OOCiC) : 


1 


5 BY H.BOSCH, 






0000 : 




; TWENTE 


UNIVERSITY OF 


TECHNOLOGY, DEPT OF CHEM. TECHN. , 


0000: 


3 


jPOSTBOX 




PKlQPMPnP 

C.INOwnE.L/C 


THE NETHERUANDS 


00001 


4 


J 








0000 s 


5 


; MONITOR 




PI nATTWR 


POINT SUBROUTINES 


FF4AS 


6 


lOSAVE 






SAVE REGISTERS 


FF3F1 


7 


lOREST 




*PP'^P 


RESTORE REGISTERS 


OOBli 


8 


ADVTP 


POIJ 


kfiriR 1 

V^jL^D X 


ADVANCE TEXTPpiNTER 


1 


9 "MOVIF 


1^131 1 
Cufu 




PACK FAC INTO TEMPI 


EBIE: 


1 ri 


["LJV.41P 


PDI 1 


APR 1 P 


PACK FAC INTO TEMP2 


EB23I 


1 1 

X X 




CUCw 




PACK FAC INTO MEM ( X ) , ZEROPAGE 


EEI2BI 


1 O 








PACK FAC INTO MEM<Y,X) 


E5E2t 










MOVE STRING INTO ♦BUFFER 


ED34i 


1 4 


Pni IT 

~ WW 1 


PDI 1 




VALUE (FAC) INTO STRINGBUFFER 


E6FB: 


1 =; 
1 t-i 


rriM T MT 


PDI 1 




FAC INTO X REQ. 


EB?5i 




r U.UH 1 


PDI 1 


VCD 7 0> 


INT(ACC)->FAC 


EAF9i 




1 ILJ V~ 1 1 


FOI 1 




MEM<V, A)->FAC 


EC23I 




PPT hJT 


EQU 




I NT ( FAC ) - >MANT I BSA 


E7BE« 


1 9 


FADD 


PDI 1 


*P7PP 


MEM(Y,A)+FAC->FAC 


E7A0: 


20 


FADDH 


pni 1 


*P7A(') 


FAC + . 5 


EA66: 


^ X 


FDTU 


PDI 1 


*PAAA 


MEM<Y, A) /FAC->FAC 


E97FI 


'2'2 


PMI II T 


POlV 




l«^< V', A) »FAC->FAC 


E7A7! 


23 


FSUB 


PDI 1 

C uj w 


*P7/i7 

*C / M / 


MEM(Y,A)-FAC->FAC 


EA39: 


24 


MUL 1 0 


PDI 1 




FAC (+-) *10->FAC 


EA55: 


25 


DIVIO 


PDI 1 




FAC<+)/10 ->FAC 


EBAF» 


26 


ABS 


EQU 


kEBAF 


ABS (FAC) ->FAC 




27 


FCOMP 


EQU 


4eEBB2 


FAC>=<MEM(Y, A) 


DEBEi 


28 




EDU 


$DEBE 


COMMA CHECK 


BEC9I 


A— 7 


SF 


EQU 


♦ DEC9 


SYNTAX ERROR CHECK 


0D7Bs 




FRMFVL 


EQU 


$DD7B 


EVALUATE FORMULA (GEN) 


DD67i 


"^1 
O X 


PRMNI IM 
1 r\i iiNui 1 


EQU 


•DD67 


EVALUATE EXPRESSION (NUM) 


F53A: 




HI TN 


EQU 


•F53A 


LINE TO X(X MSB, A LSB) , Y(IN Y) 


F41 1 : 


33 


HPOSN 


EQU 


*F41 1 


X IN Y(MSB) AND X (LSfi^ <Y IN A) 


F457S 




HPLDT 


EQU 


*F457 


PLOT DOT AT HPOSN 


FAOl 1 




DRAW 


EQU 




PeAW SHAPE IN X(LSB)y ¥ (MSB) 


0000: 




? 






. . 


0000: 




; MEMORY 








OOEB: 


"TO 


LO 


PDI 1 


APR 


LOWEST VALUE, 5 BYTES 


OOFB: 


TO 


HI 


PDI 1 


APR 


HIGHEST VALUE, 5 BYTES ;.. 


00F9i 


40 


ROT 


EQU 




SHAPE ROTATION 


OOOBf 


*f 1 


SP 


EOU 


Ana 


SPX IN ♦Oe, SPY IN ^09 


00D7i 


42 


AX 


EQU 


*u / 


1 (Y-AXIS) OR O(X-AXIS) « > 


OOFA: 


43 


COUNT 


EQU 


ACTA 


1 BYTE 


0073I 


44 


HIM , 


EQU 


» / O 


HI MEM 


OlOOs 


45 


BUF 


EQU 


w 1 


STRING BUFFER 


0314« 


46 


LEN 


EQU 


1 A 

*o 1 ^ 


LENGTH OF X(Y)-AXIS IN DOTS, SeVTES 


03F5: 


47 


AMPERS 


EQU 




& VECTOR 




48 


1 








0000: 


49 


iTEMPPRV MEM 


1 IGP 
Use. 




0093: 


50 


YA 


EQU 


»93 


TEMPI, 5 BYTES r 


0098: 


51 


XA 


EQU 


♦ 98 


TEMP2 


008A: 


52 


H 


EQU 


«8A 


TEMP3 




S3! 


XI 


EGNJ 


«1E 


RUNNING X 


OOlFi 


54 


Yl 


EQU 


«1F 


RUNNING V 


0006 J 


55 


M 


EQU 


«06 


1 BYTE 


0007 : 


56 


ML 


EQU 


♦07 


1 BYTE 


0019: 


57 


SPTMP 


EQU 


♦ 19 


1 BYTE 


00E3I 


58 


J 


E9U 






OOOOl 


59 


1 






■ ■ -.jt-i . . . 



35 



LU0D'SJ3M0|jAll0p'MMM 

EifBl 5 O KEiMNER 

■ •■ 'if,' 

NEXT OBJECT FILE NAME IS GRAPHICS. OBJO ' • 



9055 1 






60 


ORG 


•9055 






9055 s 








■ 
















s ****iktBRUN 


BEFORE USE 




9055: A9 


AC 




DO 


a 1 rtn 1 L-L/ri 


M 'N.TMPTRI 

W .*^\J V\~ \ Ol_ 






9057:80 


F6 


03 


A4 


win 


AMC'CDC^ 1 

Hrir tno^^ 1 


I-O0 uUnp TABLE 


- 


905A: A9 


93 




A'=i 


1 HA 


Jrlr' 1 ol_ 






905Ci SD 


F7 


03 




fiTA 


ftPIFcRS+Z 


MSB 




■9'oswtm 


94 






L_ Lyr^ 


ik^ C Y T T 








E9 




AR 
oo 


O 1 M 


Afro 


MSB SHAPE -\PmM POINTER 










L-L/M 


W .'•fc. A 11+1 






90&5i B5 


F8 




70 


STA 


VEB 


L^wB SHAPE TABLE POINTER 




90A7 3 DO 


02 




W A 










90^9: E& 


E9 






T MP 








90AFI : A9 


02 














T C3 1/ « w vJ 






/ "t 


vl 1 H 


pni iiviT 
L>UIJ|N 1 


LUUNTER TO DRAW E 0 AXIS 


(DRAWAX) 


90&F! A9 


55 




75 


1 DA 


wa 1 HK 1 






907 1 : 85 


73 




r O 


O 1 H 








9073:85 


6F 




77 


wJ 1 PI 


*6F 






9075: A9 


90 




78 


L_ U r1 


#< START 






9077:85 


74 






QTA 


HIM+l 


HI MEM TO BEBIN «3F PR06RAM 
#^NT^ Wwt#«M mm DDI 




9079s 85 


70 








•70 


vie ON/ DOU £. 

Vt BY PRw6 


907B: 60 






' ~ 'H't ~ 










907C: 








« ' " ' 








907C: DC 






83 


RAN6E DFB 


♦DC 


RANGE X-AXIS-220 




907PS 97 












RANGE Y-AXIS-151 




907E1 23 






&s 




•23 


X COORDINATE-35 




907F : 97 






86 


DFB 




Y COORB1NATE«151 




9080 s 






87 


« 

•1 








9O80s 






88 


1 ADDITIONAL 


SUBROUTINES 




9080 : 






89 


S CALCULATE MAX STRIN6 


LENGTH 




9080 : A9 


FB 




9r) 


MALEN LDA 


♦♦HI 


HIGHEST SUBSCR 




9082 : 20 


9E 


90 


91 


JSR 


STRLEN 






9085s 86 


07 




92 


STX 


ML 


L(HI)->ML 




90af7ii4¥ EB 




9"^' 




»L0 


d^ST ^Iti^f^ 




9089: 20 


9E 


90 


94 


JSR 


STRLEN 






908C:E4 


07 






CPX 


ML 


L<LO) >L<HI)? 


. ,- •■ 


908E: 90 


02 




(9A 


BCC 


MLE 






9090s 86 


07 






STX 


ML 


YES 




9092s A9 


SA 








m 


StEP 




9094 : 20 


9E 




QP 


JSR 


STRLE#^'* 
ML 






9097s E4 


07 




1 Dl'l 


CPX 


L<STEP) >ML? 




9099s 90 


02 




lf>1 
» w X 


BCC 


MLF 






909BS86 


07 






STX 


ML 


YfeS> MAX •LENSTH 




909DS60 








MLF RTS 








909E: 






1 OA 


5 








909ES 






1 OS 


J CALCULATE STRING LENGTH 




909ESA0 


00 




1 VO 


STRLEN LDV 


#0 






90A0S20 


F9 


CM 




JSR 


MOVFM 


MEM->FAC 




90A3s20 


AF 


EB 


1 08 




ABQ 






90A6:20 


34 


ED 


109 


JSR 


FOUT 


FAC TO STfr^Nlrf BUFFER 




90A9S A2 


00 




1 1 (■) 


STRL2 LDX 


#0 












111 


STR2 INX 








90AC: BD 


00 


01 


112 


LDA 


BUF,X 






90AFsD0 


FA 




113 


BNE 


STR2 






90B1 s60 






114 


RTS 




STRING LENGTH, IN X 




90B2S 






115 


\ 








90B2» 






116 


S FLOAT IhHS POINT TIMES 


INTEGER 




90B2 : 






117 


;INTEGER<X REG) « MEM(0,A REG) -> FAC 




90B2s85 


19 




118 


FPTINT STA 


*19 






90EI4S86 


lA 




119 


STX 


«1A 


SAVE AScX REGISTERS 





36 



9066 s A9 


00 




i20 




LDA 


«0 




9068120 


93 


Efi 


121 






FLOAT 




fOBBsAS 


19 




122 


REST ' 


LDA 


«19 




90BDS AO 


00 




123 




LDY 


#0 




90BF r 20 


BE 


E7 


124 




JSR 


FADD 


F AC+MEM ( 0 , A ) - >FAC 


90C2:C6 


lA 




125 




DEC 


«1A 


X RE6 -1 




F5 




1^ 




wm 


wssr 


< ' '-^ . 


90C6: AO 






127 




RTS 






90C7B 






128 


i 








90C7S 






129 


i X REG 


« INT 


IN MEM 


(IBVTE) 


90C7»A0 


00 




130 


INTMUO 


LDY 


#0 






'.^ 


> 


■|»2<'tM2«- 


■ •■-mM^" 






90CC:65 


19 




133 




ADC 


SPTMP ' 




90CE: 90 


01 




134 




BCC 


IM3 




90D0: CB 






135 




I NY 






90D1ICA 






136 


-IM3 


DEX 






90D2ilK> 






137 




BNE 


1M2 




90D4 : 60 






138 




RTS 




'■' - 'I.:..' 


90D5: 






139 


i 








90D5! 






140 


; CHANGE H (»10 OR /iOl 


90D5!A0 


00 




141 


CHNGH 


LDY 


#0 




90D7! A9 


8A 




142 




LDA 


#H 




90D9: 20 


F9 


EA 


143 




JSR 


MOVFM 


H->FAG 


90DC:A6 


E3 




144 




LDX 


J 


;-tc'r. 








148 




DEX 






90DF:F0 


05 




146 




BEQ 


DIV 


BRANCH ON J-1 


90E1 ;20 


39 


EA 


147 




JSR 


MUL 1 0 


«10 


90E4SD0 


03 




148 




BNE 


SAV 


BRANCH 


90E&I20 


55 


EA 


149 


DIV 


JSR 


DIVIO 


/IP . 


"9©B9r'ii?(2 






ISO 


Bm 


LDX 


ttH 




90EB : 20 


23 


EB 


151 




JSR 




FAC-^>#H 


90EE : 60 






152 




RTS 






90EF s 






153 


I 








90EFS 






154 


; INTEGER DIVISION A 


REG / INT IN MEMiliYTE) 


90EFiA2 


00 




155 


INTDIV 


• LDX 


ttO 




90F1 t38 






156 




SEC 




►J : V 


90F2:EB 






157 


ID2 


INX 






90F3«ES 


19 




158 




SBC 


SPTMP 


A-A-MEM (SPTMP) 


90F5SB0 


FB 




1S9 




BCS 


ID2 




90F7:CA 






160 




DEX 




X«1NT< A/MEM) 


90F8 ! 60 






161 




RTS 






90F9: 






162 


1 














163 




90F9 : AO 


00 




164 


SUBTMP 


LDY 


#0 




90FB: Sib 


46 




165 




STX 


*46 




90FD: 20 


F9 


EA 


166 




JSR 


MOVFM 


MEI1«lY,A>->FACv"* . 


9100: A5 


46 




167 




LDA 


«46 




91021 2© 


A7 


E7 


168 




JSR 


p&um 


• MBMiy,A)-FAC or- 


9105:20 


21 


EB 


169 




JSR 


MOVIF 


->TEMP1 


9 1 <:)8 : 60 






170 




RTS 






9109: 






171 


• 

f 








9109* 






172 


1 PAR AM 


FOR CALC OF VALUES ALONG THE AXIS , 


♦109tft2 


FB 




173 




LDX 


ttHI 




910B: A9 


EB 




174 




LDA 


#L0 




9100:20 


F9 


90 


175 




JSR 


SUBTMP 


HI-LO->TMPl 


9110120 


2A 


91 


im 




JSR 


STORE 




9113iA5 


19 




177 




LDA 


SPTMP 


SP IN A 


9115:20 


93 


EB 


178 




JSR 


FLOAT 


SP IN FAC 


9118:A9 


93 




179 




LDA 


«YA 




911A:20 


66 


EA 


180 




JSR 


FDIV 


<HI-LO)/SP 


911D:A2 


8A 




181 




LDX 


#H 




911F:20 


23 


EB 


182 




JSR 


MOVML 


->TEMP3 


9122:A2 


EB 




183 




LDX 


#L0 





LU0D'5J3M0|^AH0p'MMM 



9124: A9 


8A 




184 


LDA 


#H 




9126S20 


F9 


90 


185 


JSR 


SUBTMP 


L0-(HI-LO)/SP 


9129i60 






186 








912A« 






167 








912AS 






188 


; STORE LO IN 


«300 ( X ) 


AND »30A<Y) 


912A: 






189 


iDOTS/tHI'H.O) 


WITH P«OPEir SI©N IN t3C», iSOF 


912AiA4 






im 


itORE LDY 


AX 




¥12C:B9 


14 


03 


191 


LDA 


LEN,Y 




912F! A8 






192 


TAY 






9130: A9 


00 




193 


LDA 


#0 






PB 


m 


1#4 




♦BEF3 


ynMBf, M¥«m% into fac 


9135: A9 


93 




195 


LDA 


#YA 




9137:20 


66 


EA 


196 


JSR 


FDIV 


<HI-LO)/DOTS ' 


9 1 3A : AO 


E9 




197 


LDY 


«*E9 


MSB FP 1.00 


913CSA9 


13 




198 


LDA 


«*13 


LSB FP 1.00 


913Ei20 


66 


EA 


199 


3Bn 


FDIV 


DOTS/(HI-LO> 


9141 : A5 


D7 




200 


LDA 


AX 




9143: DO 


06 




201 


BNE 


ST2 


BRANCH IF Y-AXIS 


9tmtm 


fiS 




2#2 


LDA 




iFACilON 


9147:49 


80 




203 


EDR 


#*80 




9149:S5 


A2 




204 


STA 


*A2 


REVERSE SIGN IF X-AXIS 


914B: A9 


05 




205 


ST2 LDA 


#5 " ■ 




914D:20 


63 


91 


206 


JSR 


SET 




9150: AA 






207 


TAX 






9151 t 20 


2B 


EB 


208 


JSR 


MOVMF ' 


■ i*^^ FAG INTO »305(XJ OR 


9154: A9 


EB 




209 


LDA 


#L0 




9156: 20 


F9 


EA 


210 


JSR 


MOVFM 


LO->FAC 


9159SA9 


00 




211 


LDA 


#0 




915B«2d 


63 


91 


212 


JSR 


SET 




9 1 5E : AA 






213 


TAX 






915F:20 


2B 


EB 


214 


JSR 


MOVMF 


PACK FAC INTO *300 <«30A: 


9162:60 






215 


RTS 






91£t3a 




■ -■ 


216 


5 






9163! 






217 


jSET REGISTERS FOR D#lfA JN «300.*313 


9163: IB 






218 


SET CLC 






9164: AO 


03 




219 


LDY 


#♦03 




91661 All 


D7 








m 


A, 


9168:F0 


02 




221 


BEQ 


SETEX 




916A:69 


OA 




222 


ADC 


#«0A 




916C:60 






223 


SETEX RTS • 






916DI 






224 


; 






9i&®'i 






225 




916D: A5 


A2 




226 


RNDOFF LDA 


«A2 




916F: 48 






227 


PHA 




STORE SIGN 


9170: 20 


AF 


EB 


228 


JSR 


ABB 




9173:20 


39 


EA 


229 


JSR 


MULIO 




91 ¥6 s 20 


39 


EA 


230 


'^<' jm' 


HULio^ ; 




9179:20 


AO 


E7 


231 


JSR 


FADDH 




917C:20 


23 


EC 


232 


JSR 


FPINT 




917Fi20 


55 


EA 


233 


JSR 


DIVIO 


1 ^ t 


9i82:l20 


55 


EA 


•2S4 


a«R 


DIVIO 




918Sf 68 






235 


PLA 






9186:85 


A2 




236 


STA 


«A2 


RESTORE SIGN 


9188:60 






237 


RTS 






91898 






238 


1 






9189: 






239 


; CALCULATE VALUE AND 


ITS START INS POINT 


9189: AO 


00 




240 


SUBSCR LDY 


#0 




918B: A9 


93 




241 


LDA 


#YA 


TEMPI ->FAC 


918Ds20 


F9 


EA 


242 


JSR 


MOVFM 




f«f®l'A9 


8A 




243 


LDA 


#H 




91 92:1 20 


BE 


E7 


244 


JSR 


FADD 




919Sf20 


60 


91 


245 


JSR 


RNDOFF 


TO 2 DECIMALS 


9198120 


21 


EB 


246 


JSR 


MOV IF 


CURRENT SUBSCR IN TE»«»1 



38 



.-lOp'ftftMrtft 

P'^|-T , S O iS KEMMER 



919B! 20 


34 


ED 


247 


SC2 


JSR 


FOUT 


FAC INTO STRING BUFFER 


919E: A5 


D7 




248 




LDA 


AX 




91A0SF0 


18 




249 




BED 


SC5 


BRANCH ON X-AXIS 


91 AS! i AS 


©7 




250 




LDA 


ML 


STRING LENGTH 


91A4:2A 






251 


SC3 


ROL 


A 




91A5:2A 










ROL 


A 


«4 


91A6SE5 


IE 




sm 


JO 




-XI 


91 AS: 49 


FF 




254 




EOR 


#*FF 


X1-4L 


91AA:AC 


00 


01 


255 




LDY 


BUF 




91ADsC0 


2D 




256 




CPY 


#*2D 


VALUE<0? 


91AFtD0 


02 




257 




BNE 


SC4 






04 




258 






#04 


YES, XI -4 


91B3! AA 






259 


SC4 


TAX 




.... 


91B4: A5 


IF 




260 




LDA 


Yl 


■ 


91B6:69 


02 




261 




ADC 


#02 


■ I 


91B8:D0 


00 




262 


_ 


BNE 


SC6 




91BA8 20 


A9 


90 


263 


SC5 


jSft 


STiRL2 




91BDS 8A 






264 




tXA 






.'1BE:E5 


IE 




265 




SBC 


XI 


L-Xl 


9 ICO: 49 


FF 




266 




EOR 


»*FF 


Xl-L 


91C2I AA 






267 




TAX 


S 


■I. ■ " ' 


91C3S AS 


IF 




268 




LDA 






91C5:69 


08 




269 




ADC 


#08 


rtfl*8 • ' 


91C7I AO 


00 




270 


SC6 


LDY 


#0 




9fC9i20 


11 


F4 


271 






HPOSN 


-rmirfYl 


91CC:60 






272 




RTS 






91CD: 






273 


■ 

•1 








91CD: 






274 


sDRAW CHARACTERS IN STRING BUFFER ' 


91CDS A2 


00 




275 


DRWSHP 


LDX 


#0 


• 


fieri ti 






27* 


r ■ 




•J 


SET UP POINTER TO ASCI 1 


91D0: AS 


EB 




277 




LDA 


*ES 




91D2:69 


5D 




278 




ADC 


#«5D 




91D4: 85 


55 




279 




STA 


♦ 55 




91D69A5 


E9 




280 




LDA 


*E9 




9'l'I&8»'i»9' 


01 




281 




ADC 


#1 




91DA:85 


56 




282 




STA 


«56 


MSB " -1 


9 IDC: AO 


00 




283 


DRl 


LDY 


#0 




91DE:BD 


00 


01 


284 




LDA 


BUF , X 


READ NEXT CHARACTER 


91EHF0 


10 




285 






SHPFIN 


mmQH ON END OF STRING 








286 


DR2 


. rwv 


f 






S5 




287 




CMP 


(»5S) ,Y 


v;i|*iXT ASCI CODE 


91.Sli*'ll# 


FB 




288 




BNE 


DR2 




'91681 SB 






289 




tm 




K -in ' 


91E92 86 


06 




290 




STX 


M 


# OF CHARACTER IN STRING 


91EBs9B 






291 




TYA 




# OF SHAPE TO BE DRAWN 


91 EC: 20 


F4 


91 


292 




JSR 


SHADDR 


CALC SHAPE ADDr«S^ 


91EF: A6 


06 




293 


.j^ •■ 


LDX 


M 






E9 






. ■ 'A ' 




DRl 


BRAI>K2H 


91F3s60 






295 


SHPFIN 


RTS 






91F4: 






296 










91F4: 






297 


; CALCULATE SHAPE ADDRE36 - ^ •! 


91F4sQA 






298 


SHAODR 


ASL 


A 


■'»2 


91FS»ft8 






■199 




TAY 






91F6:B1 


ES 




300 




LDA 


(*E8) ,Y 




91FB: 18 






301 




CLC 






91F9!65 


ES 




302 




mc 


♦E8 


LSB OF SHAPE AlMI^^:' ' 


91FBIAA 






303 




tm 




IN X REG 


91FefC8 






ism 










91FD;B1 


E8 




305 




LDA 


<«EB),Y 




91FFi65 


E9 




306 




ADC 


«E9 


MSB 


9201: AS 






307 




TAY 




IN Y REG 


9202: AS 


F9 




308 




LDA 


ROT 


ROT 


9204:20 


01 


F6 


309 




JSR 


DRAW 





LUOD'SJBMOyAllOp'MMM 



¥207 s 60 






310 




RTS 


>3 










Si 1 


i 










312 


; ROUND 


OFF SP-LENGTH 


<DOTS> 


^aOQs B9 


OS 


00 


313 


PARAX 


LDA 


SP, Y 




^SOBs 85 


19 




314 




STA 


SPTMP 


RUNNING SP 


920IIJ B9 


7C 


90 


315 




LDA 


RANGE, Y 


RUNNING RANGE 


921 Of 2© 


€F 


90 


316 




JSR 


INTDIV 




9213: 86 


E3 




317 




STX 


J 


a«INf (RANeE/SPI: • 


9215: 60 






318 




RTS 






9216: 






319 


5 








9216: A4 


. IF 




320 


LINAl 


LDY 


Yl 




¥2 IBs «2 


OO 




321 




LDX 


#0 




1 A ■ 


1 t 








LDA 


X 1 




T ^ 1 c r ^ ^.1 


T A 
OH 


r w> 


TOT 

s^23 




JSR 


HLIN 


FROM CURRENT CURSOR POSf 


1 r : ov 










RTS 












%32!3 


1 














326 


[ISCALZNB 






OT*?/*» ■ AO 


Ul 




327 




1 PV/V 


#01 








CO 


o2d 






FLOAT 


1->FAC 


9227 1 20 


2^' 


EB 


330 




JSR 


MOVML 


'FAC->H 


922A: A9 


03 




331 


BEGIN 


LDA 


#03 




922C: A6 


D7 




332 




LDX 


AX 


.1->Y-AXIS, 0->X-AXIS 


922E: 95 


08 








STA 


SP,X 


SP«*3 


9230* A6 


D7 




334 


INCSP 


LDX 


AX 




9232: F6 


OS 




335' 




INC 


SP , X 


SP+1 


9234 : A9 


08 




336 




LDA 


#08 


:Av>> 


9236: D5 


08 




337 




CMP 


SP, X 




9238: 10 


05 




338 




BPL 


JO 


BRiSiiESH W SP<=Q 


92^if^l2P 


'D5 


90 


339 




JSR 


CHNGH 


H* 1CM>#H 


923D: DO 






340 




BNE 


BEGIN 




923F: A9 


00 




341 


JO 


LDA 


#0 




9241 : 85 


E3 




342 




STA 


J 


J=0 • 


9243 IT Eo' 


E'§ 




34^' 


INC J 


INC 


J 


J+1 


9245: A5 


E3 




344 




LDA 


J 




9247 : C9 


03 




345 




CMP 


#03 


J=3? 


9249: DO 


02 




346 




BNE 


J6 


BRANCH ON J#3 


924Bs 


E3 




347 




INC 


J 


J=4 


9*2'41l)'f G'9 


06 




34S 


34, 


CMP 


#04 




924F: FO 


DF 




349 




BEQ 


INCSP 


BRANCH ON J«6 


9251 : A6 


E3 




350 


Jl 


LDX 


J 


J 


9253: A9 


8A 




351 




LDA 


#H 


H 


9255:20 


B2 


90 


352 




JSR 


FPTINT 


XA«J*H ->FAC 


92S8s20 








.JSS? " 


WI0V2F 


FAe^'?TEMP2, RESETS Y 


925B: A9 


EB 




354 




LDA 


#L0 


LSB LO 


925D: 20 


66 


EA 


355 




JSR 


FDIV 


LO/XA ->FAC 


9260: 2U 


23 


EC 


356 




JSR 


FPINT 


INTE^R(FAC> , RmETS Y 


9263: A9 


98 




357 




LDA 


#XA 




9265: 20 


7F 


E9 


358 




JSR 


FMULT 


YA=XA*INT (LO/XA) 


926B : 2o 


21 


EB 


359 




JSR 


MOVIF 


YA->TEMP1 


926B: A4 


D7 




360 




LDY 


AX 


0->X AXIS, 1->Y AXIS 


926D: B6 


08 




361 




L©X 


SP, V 


SP v& r 


926F: A9 


98 




362 




LDA 


#XA 


LSB ( XA) 


9271 : 20 


B2 


90 


363 




JSR 


FPTINT 


SP*XA->FAC 


9274: 20 


IE 


EB 


364 




JSR 


M0V2F 


XA->2P (X REG) , J^^ITS Y 


9277: A9 


93 




365 




LDA 


#YA 




#f79: 20 


BE 


E7 


366 




JSR 


FADD 


XA+YA( TEMPI) ->FAC 


927C; AO 


00 




367 




LDY 


#0 




927E: A9 


FB 




368 




LDA 


#HI 




9280 : 20 


B2 


EB 


369 




JSR 


FCOMP 


FAOMI? 


9283 :C9 


FF 




370 




CMP 


#»FF 






'WE' 




371 




mm 


INCJ 


BRANCH ON HI>XA+yA 


9287 iA6 


D7 




372 




LDX 


AX 





40 



LU0D'SJ9M0yA410p'ftAMrtA 





oe 




373 




LDA 


#08 


- 


92SB! D5 


08 




374 




CMP 


SP, X 


'.V 'J 


9280 :F0 


26 




375 




BEQ 


SAVLH 


BRANCH ON SP=8 " ' 


92BF: A2 


03 




376 




LDX 


•03 




929J sA9 


98 




377 




LDA 


«XA 






m 


96 


378 




JSR 


FPTINT 


3«XA 


9296 :C6 


90 




379 




DEC 


$90 


FAC/2 


929B:C6 


90 




380 




DEC 


»9D 


FAC/2 


929A: A9 


EB 




381. 




'L©»" 


•CO 




929C:20 


BE 


E7 


382 




JSR 


FADD 


L0+. 75«XA->FAC 


929FJA0 


00 




383 




LOY 


#0 




92A1:A9 


FB 




384 




LDA 


#HI 




92A3:20 


B2 


EB 


385 




JSR 


FCOMP 


L0-»-.75ltXA>HI («FB)7 




01 




; wm- 




CMP 


#01 




92ABiDO 


OB 




387 




BNE 


SAVLH 


BRANCH ON FAC<HI 


92AA« A9 


FE 




388 




LDA 


«*FE 


1 • ■ 


92AC:24 


E3 




389 




BIT 


J 




92AE«D0 


80 




390 




BNE 


INCSP 


BRANCH ON J>1 




DS 


90 


391 




JSR 


CHNGH 




92B3JDO 


9C 




392 




BNE 


Jl 


BRANCH WITH J-1 


92B5:A0 


00 




393 


SAVLH 


LOY 


#0 




92B7sA9 


93 




394 




LDA 


#YA 




92BC:A2 


EB 




396 




LDX 


ttLO 




¥2BE:20 


23 


EB 


397 




JSR 


MOVML 


FAC ->L0 r..' 


92C1 : A9 


98 




398 




LDA 


»XA 




92C3: 20 


BE 


E7 


399 




JSR 


FADD 


+XA 


92C6: A2 


FB 




400 




LDX 


#HI 


:i,>J|H"y«^ .->HI 


92Q8S20 


23 


EB 






, JSR 


MOVML 








*02^ 




RTS 










403 


■i 








92CC: 






404 


; CALCULATE COORDINATES 


TO PLOT . s. 


92CC:20 


Bl 


00 


405 


COORD 1 


JSR 


ADVTP 


ADVANCETeXTf>{)(li4TIS|^ 


92CFS20 


67 


DO 


404 


C00RD2 


JSR 


FR^BMUM 


VALUE INTO FAC 


92D2:8A 






407 




TXA 




ACCU=0 


9203:20 


63 


91 


408 




JSR 


SET 


SET REG TO POINT TO M^M 


92D6J20 


A7 


E7 


409 




JSR 


FSUB 


MEM-FAC 


92D9:A9 


#S 




410 




LDA 


«5 




92DBi20 


63 


91 


41 1 




JSR 


SET 


SET REG 


92DES20 


7F 


E9 


412 




JSR 


FMULT 


MEM*FAC 


92E1 : 20 


21 


EB 


413 




JSR 


MOVIF 


FAC->T£MP1 


«2E4!A6 


D7 




414 




LP)f 


AX 








415 




TVA 






92E7:BC 


7E 


90 


416 




LOY 


ORIGIN, X 




92EA! 20 


F3 


DE 


417 




JSR 


*DEF3 


Y (LSB) , A (MSB) INTO FAC 


92ED: A9 


93 




418 




LDA 


#*93 


92EF:20 


BE 


E7 


419 




. JSR 


FADD 


MEM+FAC 


9as'2'f20 


AO 


E7 


450 




JSR 


FADDH 


FAC+.5 ^i. 


92F5: 20 


FB 


E6 


421 




JSR 


CON TNT 


.^(sifD t are - 


92F8: A4 


07 




422 




LDY 


AX 


M^l: CONTAIN diipDIIIAtiS 


92FA: 96 


06 




423 




SIX 


M,Y 


92FCS60 






424 




RTS 




92FD« 






425 


i 








92FD: 20 


BE 


DE 


426 


VALl 


JSR 


CHKCOM 


CHECK ON COMMA 


9300:20 


67 


DO 


427 


VAL2 


JSR 


FRMNUM 


VALUE INTO FAC 




FB 


£6 


42i 




JSR 


CON I NT 


FAC INTO X REGISTER 

r ' ' ■■ 








429 




RTS 




9307 s 






430 










9307: 






431 


; «««««« 


ENTRY 


&PLOTJ PLOT SYMBOL DEPENDIN© ON CODE 


9307 J A9 


00 




432 


SRPLOT 


LDA 


#0 


>•<■;■ : ■ 


#3€^.f IS 


D7 




433 




STA 


AX 




930B : 20 


CC 


92 


434 




JSR 


COORD 1 


CALC X 


930E:20 


BE 


DE 


435 




JSR 


CHKCOM 


CHECK ON COMMA 



■•••5 



LU0D'SJ3AA0|jAll0p'MMM 



— Ei 5 O KEIMMEFt 





D7 




436 




INC 


AX 




931 3 t 20 


CF 


92 


437 




JSR 


C00RD2 


CALC Y 


9316: 20 


FD 


92 


438 




JSR 


VALl 


PULL PLDTCODE INTO X 


9319:86 


E3 




439 




STX 


J 


It- 


931B: AO 


00 




440 




LDY 


#0 




■f S'l'J&i 84 


F9 




441 




STY 


ROT 




931F! A6 


06 




442 




LDX 


M 




9321 :A5 


07 




443 




LDA 


M+1 




9323: 20 


57 


F4 


444 




JSR 


HPLOT 


■■Ptj0p'^3mt AT X«X, Y-ACCU 


9326 sA6 


E3 




445 




LDX 


J 






m 




446 




BEQ 


SRPEX 


BRANCH IF CODE=0 


932A:CA 






447 




DEX 






9328: 8A 






448 




TXA 






932C:D0 


06 




449 




BNE 




BRANCH IF PLOTCO0E>1 


932Es A9 


ID 




450 




LDA 


#*1D 




9330:20 


F4 


91 


451 




JSR 


SHADDR 


C0DE=1,DRAW SQUARE 


9333: 60 






452 


SRPEX 


RTS 




9334: A5 


E3 




453 


SRPCR 


LDA 


J 






01 




454 




AND 


#1 




9338: DO 


04 




455 




BNE 


SRP2 


BRANCH IF C0DE«3 


933A: A9 


20 




456 




LDA 


#*20 


ROT«-^0 ' ■" ^■ 


933C:85 


F9 




457 




STA 


ROT 


FOR C00E-'2 OR 4 


933EIA9 


IE 




458 


SRP2 


LDA 


.#«1E 




93401 20 


F4 


91 


4S9 




3m 




' BR AW HALF CROSS 


9343:85 


F9 




460 




STA 


ROT 


RESET ROT-0 


9345: A5 


E3 




461 




LDA 


J 






©3 




462 




ANO 


#03 




9349: DO 


E8 




463 




BNE 


SRPEX 


BRANCH IF GODE-2 OR 3 


934B: C6 


E3 




464 




DEC 


J 


C0DE=3 


9340: DO 


EF 




465 




BNE 


SRP2 


BRANCH 


934F! 






466 


5 








934FS 






467 


, «i * f » r mm¥ ■ 'sdra w i 


TEXT ALONG AXES 


934F: A2 


00 




468 


SRDRAW 


LDX 


#0 




9351 :B6 


71 




469 




STX 


♦ 71 




9353: EB 






470 




INX 






9354:86 


72 




471 




STX 


♦72 


POINTER TO *BUFFER 


9356:20 


81 


00 


472 




JSR 


ADVTP 


ADVANCE TEXTPO INTER 


9359:20 


7B 


DO 


473 




JSR 


FRMEVL 


E^Ai^CllgT^ FORMULA 


935C: A6 


9E 




474 




LDX 


♦9E 




93SE! A4 


9F 




47m- 








f POINTER, *L IN ACCU 


9360:20 


E2 


ES 


476 




JSR 


MOVSTR 


* ->BUF 


9363: AA 






477 




TAX 






9364: 98 






478 




TYA 






9365:90 


00 


01 


479 




STA 


BUF, X 


ZERO AT ♦END 




Bl 


00 


480 




JSR 


ADVTP 


936Ei:C9 


58 




481 




CMP 


#♦58 




936D : FO 


13 




482 




BEQ 


TXTX 


BRANCH IF X 


936F:C9 


59 




483 




CMP 


#♦59 




9371 ?F0 


20 




484 




' BEQ 


TXTY 


BRANCH IF Y 


9'3TS''s '20 








JSR 


VAL2 


PULL X COORD INTO X REG 


9376: 86 


IE 




486 




STX 


XI 




9378: 20 


FD 


92 


487 




JSR 


VALl 


PULL Y COORD INTO X REG 


937B : 86 


IF 




488 




STX 


Yl 




937Ds20 


A4 


91 


489 




JSR 


SC3 


CALC START POSW - ^ 


9380 » DO 


22 




490 




BNE 


TXTDS 


BRANCH 


9382s A9 


00 




491 


TXTX 


LDA 


#0 


X-AXIS 


9384 t 85 


F9 




492 




STA 


ROT 


RESET ROT 




'FB 




493 




im 


iiFW 


9388:85 


IE 




494 




STA 


XI 




938A: A9 


91 




495 




LDA 


#♦91 




93aC: 85 


IF 




496 




STA 


Yl 




93aE:20 


A4 


91 


497 




JSR 


SC3 




9391! DO 


OB 




498 




BNE 


TXTDR 


BRANCH 



42 



E^E 5 □ S 



9393 s 8A 






499 


TXTY 






Y-AXIS 








500 




ASL 


A 


■ ■ * 


9395; OA 






501 




ASL 


A 


f J 0 


9396 : 69 


20 




502 




ADC 


#«20 




9398s A2 


05 




503 




LDX 


#♦05 




939AS AO 


30 




504 




LDY 


#*30 




f39ClS4 


r9 




505 




STY 


ROT 


R0T*'-90 


939ei20 


C7 


91 


506 




JSR 


SC6 


CAl^ POBN 


93Als20 


Bl 


00 


507 


TXTDR 


JSR 


ADVTP J 


:jOA 


93A4 : 20 


CD 


91 


SOB 


TXTDS 






>DRAir;CMAR'S JIM •BUF 


93A7s84 


F9 




509 




STY 


ROT 


RESET ROT=0 


93A9se4 52 




510 




STY 


»52 


SUPPRESS 'FORMULA TOO COMPLEX' ERF 


93AEI: 6Q 






511 




RTS 






93ACs 






512 


J 














SIS 




r 






93AC: 






514 




MAIN 


1 ENTRY VIA 




93ACS C9 


8E 




515 


JMPTBL 


CMP 


*«8E 




93AE: FO 


12 




516 




BEQ 


LINAXl 


BRANCH IF HUN ' 


93B0:C9 


8F 




517 




CMP 


«»8F i 




93B2iF0 


OE 




518 




SEd 


LINAXl 


BR ANCH IF Vin W 


93B4: C9 


94 




519 




CMP 


#*94 




93B6: FO 


97 




520 




BEQ 


SRDRAW 


BRANCH IF DRAW 


93B8: C9 


8D 




521 




CMP 


#«8D 




93BAJD0 


03 




522 




BNE 


PRSE 


BRfima IF NOT Pi.eT 


f31C»4G 


07 


93 


523 




JMP 


®^FLOT 




93BF:4C 


C9 


DE 


524 


PRSE 


JMP 


SE 


ERRORF 


93C2b 






525 


J 








■f.3G2f 






526 


|J^MMIMyP»^»^. «<HL1N AND SeVLINi DRAM Vi-^mk Y-AXIS ' ^ 


93C2:S9 






S27 




sec 






93C3:E9 


8E 




528 




SBC 


#«8E 


TOKEN FOR ML IN 


9305:85 


D7 




529 




STA 


AX 


HLIN=0, VLIN=1 




Bl 


00 


. 5^0. 




JSR 


ADVTP 


ADVANCE TEXTPO INTER 


93CAiF0 


m 










^<LINAX1^:r--- 


^pmm^L AXIS mm num. 


93CCs20 


67 


DD 


532 




JSR 


FRMNUM 


EVALUATE EXPRESeiDN 


93CF: A2 


EB 




533 




LDX 


#LD 




93D1 : 20 


23 


EB 


534 




JSR 


MOVML 


STORE LO ■ ' -» 


93D4.i2^* BE 


DE 


555 




JSR 


CHKCOM 


CHCK ON COMMA 




67 


m 










teKtmBmrw. mm r 


93DA: AO 


00 




537 




LDY 


#0 




93DCS A9 


EB 




538 




LDA 


#L0 




93DE:20 


B2 


EB 


539 




JSR 


FCOMP 


HIH.09 ^ 


93Ei 1 C9 


01 




540 




CMP 


#01 




93ESiD0 


m 




S41 




E^E 


PRSE 


HRRdR' 


93E5: A2 


FB 




542 




LDX 


#HI 




93E7s20 


23 


EB 


543 




JSR 


MOVML 


STORE HI 


93EA»20 


20 


92 


544 




JSR 


SCALE 


CALCULATE LO AND HI 


93EDS A4 


D7 




545 




LDV 


AX 




93EFI20 


08 


92 


546 




JSR 


PARAX 


LOAD SP, CALC INT (RANGE /SP) 


93F2: 20 


C9 


90 


547 




JSR 


INTMUL 


SP*J 


93F5S99 


14 


03 


548 




STA 


LEN, Y 


SCALE LENGTH IN » OF DOTS 


93FBJ20 


09 


91 


549- 




JSR 


SUBSTP 


LOWEST-STEP IN TEMPI, STEP IN TEMP 


93FBS20 


80 


90 


550 




.JSR 


MALEN 


CALC MAX STRING LENGTH 


93FE : 20 


2D 


94 


551 




JSR 


DRAMAX 


DRAW AXIS WITH NUMERALS 


9401 : 60 






552 




RTS 




RETURN TO BASIC 


94021 A9 


00 




553 


HNAX2 


LDA 


«0 


, . c 




#7 




S54 




STA 


ftL 


m NUMERALS FOR l*ARALLKi-' «Ei^ '^^ ' 


9406: A5 


D7 




555 




LDA 


AX 




9408: A8 






556 




TAY 






9409: 49 


01 




557 




EDR 


*01 


REVERSE CURRENT AXIS 


940BS AA 






558 




TAX 






940Cf AD 


7F 


90 


559 




LDA 


ORIGIN-i-1 




940FiC0 


01 




560 




CPY 


«1 





43 



LUODSJ8MO|^A5:iOp'ftAMrtft 



E 5 a 



9411 I FO 04 

9414! FD 
9417:85 
9419: AD 7E 90 
941C:C0 
941E»F0 
9420: 18 
9421 :7D 14 03 
9424:85 
9426:20 08 92 
f429i20 37 94 
942Cf 60 
942Di 
942Dt 

942DIAC 7E 90 
9430184 
9432: AC 7F 90 
9435104 
f4S7ffi6 
9439: A4 
943B« A5 
943D: FO 
943FSCA 
944<3iCA 
9441: DO 
9443: C8 
9444 :C8 
9445s 98 
94461 ftO 
9448: 20 
944B: A5 
944D: FO 
944F!g0 
9452 1 20 
9455: 20 
9458: 20 
945BS 20 
945E: A5 
9460: FO 
9462: A4 
9464:89 
9467: CO 
9469 :F0 
946B: 18 
946C: 65 
946E:90 

9471 :E5 E3 
9473:99 IE 00 
9476:20 16 92 
9479: C6 
947B»D0 
947D:C6 
947F:D0 
9481 :A9 
9483:85 
9485: 60 



14 

IF 
7E 
00 
04 

14 
IE 
08 
37 



7E 
IE 

7F 
IF 
IE 
IF 
D7 
04 



02 



00 

4A 

07 

06 

89 

CD 

3F 

1 1 

16 

19 

IB 

D7 

IE 

01 

OS 

E3 
03 



IE 
16 
19 
BA 
FA 
B6 
02 
FA 



FF 



91 . 
91 

FF 
F4 



u<.> 



561 

S62 
563 
364 
565 
566 
S67 
568 
569 
570 
571 
572 
573 
574 
STS 
576 
577 
578 
579 

581 

58: 

583 

584 

585 

586 

587 

588 

589 

S90 ' 

591 

592 

593 

.,-5^: 
59S 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 

■'<6€i&- 
609 
610 
611 

i>15.. 
■■mw •■ 
614 
615 
616 
617 
618 



NXT2 



BEQ 
SEC 
SBC 
STA 
LDA 
CPY 



NXT2 

LEN,X 
Yl 

ORIGIN 
#0 



BRANCH ON 2ND Y-AXIS 



A 



NXT3 



S 



CLC 

ADC LEN,X 

STA XI 

JSR PARAX 

JSR LOOP 
RTS 



2ND X» VO«YO-Lefi(Y> 



■%RANCH ON 2ND X-AXIS 



2ND Y: 



XO»XO+LEN<X) 



SP, INT (RANGE/SP) 

DRAW AXIS WITHOUT NUMERICALS 



$mm AX wtTH m wiTMOUT mmsfti^ 

DRAWAMJ 



LOOP 



oRism ^' 

XI 

0RI6IN+1 
Yl 
XI 
Yl 
HX 
XAX 



BOTHi 



XAX 



5I0TH1 



DRASEC 



LDY 
STY 
LDY 
STY 
t.DX 
I DY 
LDA 
BEQ 
OEX 
©EX 
BNE 
INY 

INY ' 
TYA 

JSR lOSAVE 
ML 

DRASEC 
JIUJBSCR. 
DRMSHP 
lOREST 
HPOSN 
LINAl 
SPTMP 
FIN 
AX 

XI, Y 
«1 
Y 



BDTH2 



EXIT 



LDA 
BEQ 

JSPr 

JSR 
JSR 

am 

LOA 
BEQ 
LDY 
LDA 
GP¥ 
BEQ 
CLC 
ADC 
BCC 

SBC 
STA 
JSR 
DEC 



BEC 
BNE 
LDA 
STA 
RTS 



J 

B0TH2 
J 

XI , Y 

LINAl 

JSPTMP 

t-OOP 

COUNT 

LOOP 

#2 

COUNT 



BRANCH ON X-AXIS 



Vi*2 < X-AXIS) 
Yl 'Hm^ Xi Vl+2 

SAVE COORDINATES 

•=0 FOR PARALLEL AXIS W/O NUM 

BRANCH ON 2ND AXIS • ' 

CALCULATE VALUE 8< CURSOR POSN 

DRAW CHAR'S IN STRING BUFFER 

RESTORE COORDINATES 

CURSOR TO X1-2,Y1<Y) OR Xl,Yl+2 

DRAM LINE TO Xl, Yl 

BRANCH ON END OF AXIS 



BRANCH ON Y-AXIS 

ACCU=X1+J 
BRANCH 

Accu«yi-j r c 

PLOT XI, Yl TO X2,Y2 

SP-1 

JiP»0? 

YES, COUNT=COUNT-l 
BRANCH ON TEL;=1 

■ - . .--'j; 
RESET C0UNT=2 .i^rt . 



«## SUCCESSFUL ASSEMBLY: NO ERRORS 



LUODSJaftftOI^A^^Op'ftAMrtA 



EIB 5 o e 



KEIMIMER 



949^ 

94BB- 

9490- 

9499- 

94A0- 

94A8- 

94B0- 

94BS- 

94C0- 

94CB- 

94D0- 

94Da- 

94E0- 

94EB- 

94F0- 

94FB- 

9500- 

9508- 

93 10- 

9818- 

9S20- 

9S2B- 

9S30- 

9538- 

9S40- 

9S48- 

9SS0-* 

95S8- 

9560- 

9568- 

9370- 

9S7S- 

9380- 

9SB8- 

9590- 

9598- 

^AO- 

93A8- 

9SB0- 

93B8- 

9SG0- 

99C8-' 

9SdO- 

9S08- 

9860- 

«9SE4. 



I F 00 
40 00 4A 
68 00 70 
eC 00 94 
AC 00 B5 
04 00 El 
03 01 OE 
2C 01 3A 
49 01 4F 
24 24 C7 
24 AD 3A 
4A 09 00 
B7 A9 4A 
CO 36 2D 
3F 24 20 
3F 24 2D 
09 24 24 
2D E4 27 
01 00 2D 
4A 00 2D 
4D Ol 00 
00 lA 2C 
4A 00 24 
64 52 00 
2A 2D 24 

23 24 2C 

2» m ci 

40 00 43 

2E 2D IC 

24 35 AD 
20 51 00 
2E 64 18 
00 24 24 
00 ^ 34 
BC 4A 01 
2D 9E D2 
28 88 37 
2E 36 35 
49 00 E4 
EO 93 AD 
64 08 *& 
47 89 00 
3F 34 2D 
AD 23 00 
36 36 3E 

.9SFF 



00 33 

00 7A 
00 9D 
00 CO 
00 ED 



00 3E 00 



01 
01 



01 33 
OA B5 
27 48 
9C 29 
00 09 
76 01 

96 4A 
DE 36 
3F 56 
2C 35 
24 24 
24 24 
41 38 
24 23 
24 20 
24 24 

97 49 
35 92 
97 97 
68 CO 

08 76 
63 2C 

24 64 
B6 9E 
2D 36 

m m 

00 20 

4C 4A 
96 49 

25 25 
40 76 
8D E3 

73 m 

09 00 

IC 00 
lA 27 
00 



00 
00 



01 
01 
01 
52 



B2 00 
A3 00 
00 C9 00 
00 FB 00 
20 01 
47 01 
53 38 
09 00 

24 3F 96 

25 24 3C 
64 CO F6 
00 2D 24 
00 2D 24 
4E 09 00 
B5 09 00 
FE 36 6D 
3F 36 AO 
3F 36 36 
98 AD 4A. 
44 3E 96 
36 BF 4A 
2D 36 BF 

00 2D 9C 
09 00 24 
AO 01 57 
3F 37 36 

00 24 
F6 OA 
98 2E 2E 

01 60 OA 
3F 76 49 

BF m ai 

24 3F 24 

00 21 E4 
00 CO 40 
44 3E 96 
4C BB 57 
4C 52 OO 

B6 m c t 

m m -as 

BO iFF &B 
24 24 2C 



01 
36 



c 



" START 
SCALING 



3 



LO 


= aexpr 1 


HI 


■ aexpr 2 


H 


« 1 



SP = 3 



SP - SP*l 

3 



H - H*10 



J . 0 



J - J+l 



< > 



J = 4 



X 


= J*H 


Y 


= X*INT (LO/X) 


X 


= X*SP 



X+Y \- 

T 

SP = 8 



< 



-C 



HI-LO <.75*X 



> 



'< 



> 



LO 


= Y 


HI 


= LO+X 



H = H/10 



c 



9SE4- 31 32 33 34 

9SEB- 35 3(6 37 38 39 SO 39 1^ 

95F0- 41 42 43 43 47 40 4E 30 

9SFS>- 52 S3 94 S6 4B 4C 20 2E 

Figure 7 Shape table wijl' 

of ASCII characters present fp 
shape table 

Figure 2 Calculation of the i»i^r of scale divisions and the lowest -nd 
highest numeral values along the axis, 

1© mn SCALE AND DRAW HORIZONTAL AXIS 

20 mn I HCOLOR- 3 1 8CALE» 1 

30 A >» - .06 

4€» te HLIN A, 1 .9 / # 

uRUN 



-.1 



.1 



.H 



.S 



Figure 3 



45. 



LUODSJaMOyAllOp'MMM 



E 5 D S 



10 

30 
40 

URUN 



REM CLOSED GRAPH 
mm i MCC3LOR« 3i mMMm I 
8< HLIN 0,1: it VLIN 0,14 
& HLIN : «< VLIN 




1'. !-V *V 



^? »c 



10 REM TEXT IN THE HI -RES PAGE 

20 HGR : HCOLOR^" iS's j^^SLt** 1: ROr= 0 

30 A» = "RATE": ?< DRAW A*, . 15, 80 

40 S< HLIN 0,1: ?t DRAW "P ATA",X 

50 ROT- 48: S< DRAM "ROTATE" * 10, 120 

uRUN . . , 



MTC 



Figure 5 



p rth 



&5 



m M©R • HC£».IJf%-» 5 1 SCALE- i i ROT- O 

30 FOR I = 1 TO 2 

40 SCALE= I: A = 32 - I 

50 DRAW 1 AT 10,20 » I 

60 FOR J - 2 TO As DRAW J: REM CURSOR ENDS AT NEXT STARTING POINT 
70 IF J > 27 THEN DRAW 27: DRAW 27 » DRAW 27 i REM CURSOR ENDS WHERE IT 
TARTS 

BO NEXT J, I . . ; , . , 

URUN 



lB3H5Eia9a-/naCECnNPPi5TVKL . . , I 

lE3H5BlBaD-/RBCEGnNPPiST VKL . b 



Figure 8 



10 REM PLOT-CODES 

20 H0R » HCtSLm* 3» SCALE- li ROT- 0 

30 it HLIN 0,100: & VLIN 0,20 

40 FOR I = 1 TO 5 

SO It BLdf so t 1,4 « 1,1 * 1 

60 THE»T > 



□RUN 



xs 



10' 



""j, t 

IB 



IT 



10 



00 



lillD 



47 



LUODSJ8ftftO|^A5:}Op'ftAMrtft 



Ei B 5 D S 



uLlST 

iO REM PLOT CODES 

20 MGP I HCOLOR- 3i » SCALE- Is ROT- 0 

30 «< HLIN 0,1001 & VLIN 0,20 

40 FOR I = 1 TO 5 

50 & PLOT 20 * 1,4 * 1,1 - 1 

60 NEXT I REM ALL PLOT CODES USED 

70 REM 

£30 REM HPLOT LINE FROM 30,57080,15 
90 DATA 30,5,80, 15 

100 START - 36990s REM XO IN «907E f 

110 FOR I = O TO 1:H(I) = PEEK (START •♦• I>i NEXT 

120 REM CONVERT LO AND L/(HI-LO) 

130 FOR I - O TO 3 s START • 768 + 5 » I i GOSUB 200t C (I > 



• k r I 
f 



5 ''ir > 



m mm xv:ii>« 



140 FOR I = O TO 3 

ISO J » I / 2 < > INT tt / 2)8 REM J"0 Xj J»l Y 

160 A(I) = H(J) - (XY(I) - C(2 « a>) » C<2 * J + 1) 

170 NEXT - 

180 HP1_0T A(0>,A<1> TO A(2>,A<3) 

190 END iH 4 

200 N = 256s HH = - Is REM CONVERSION ' - 1 P. > 

210 H - PEEK immt +1) / Hi IF M < .5 'THeW .tl * W * j^tm. •* «• 4 
220 FDR J = 3 TO 5:N «= N * 256:l-r = H + PEEK <START +• J) / Ni MElfr 
230 H = HH«H*2'^ ( PEEK (START) - 128) 
240 RETURN 



0 t 



URUN 

0 



•01 



IS- 



10- 



ao 



HO 



BO 



■0 



100 



Figure 6* 
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LUOD'SJ3MOi;Al30p'MMM 



E 5 □ S 



KEMMER 



Aanmoedigingspremie 6502-Kenner artikelen over 1984. 



Medio 1985 werd door het bestuur een jury samengesteld, dit jaar wederom be- 
staande uit Fred Harthoorn, Sebo Woldringh en ondergetekende. 

De opdracht was uit de jaargang 1984 van de 6502-Kenner de twee beste artikelen 
te kiezen en hiervoor een eerste en een tweede prijs toe te kennen van respek- 
tievelijk f. 250,= en f. 100,=. 

Deze prijzen zijn bedoeld als aanmoedigingspremie voor auteurs, of auteurs in 
spe, om zoveel en zo goed als mogelijk artikelen te doen publiceren in de 
6502-Kenner. 

Het belangrijkste kriterium dat de jury bij haar beoordeling heeft gehanteerd is 
de praktische toepasbaarheid van het gebodene. Tevens werd scherp gelet op de 
leesbaarheid van het artikel. 

Als tweede is uit de bus gekomen het inleidende artikel over FORTH van Reinier 
Kleipool (Rotterdam), uit 6502-Kenner nr. 31 (p. 40-44). Een uitstekend verhaal 
dat naar onze mening best in een van de volgende 6502-Kenners mag worden ver- 
volgd door deze auteur. 

Als eerste is uit de bus gekomen het artikel van de heer J. J. A. Janssen 
(Nijmegen), eveneens uit 6502-Kenner nr. 31 (p. 17-26), betreffende de bestu- 
ringsprogrammatuur voor de VDU kaart van Elektuur. Een goed voorbeeld, hoe men 
de 6845 videocontroller chip van Motorola kan aansturen. 

Als opbouwende kritiek hierover het volgende. Wat wij misSen in de bijbehorende 
programmatuur zijn een aantal funkties, die we op de meeste prof essionele beeld- 
schemen tegenkomen, zoals: character delete, character insert, line delete, 
line insert, alternate cursor (bijv. underscore), backward scroll, erase to end 
of line, erase to end of screen en uiteraard het smooth scrollen. Deze funkties 
zijn ook allemaal mogelijk met de 6845, het moet alleen wel 'even' worden gepro- 
grammeerd. 

Ondanks de beperking van de mogeli jkheden van deze programmatuur van de heer 
Janssen, is de jury desalniettemin van mening, dat hij door de omvang van het 
artikel, de geleverde prestatie en de uitgebreide beschrijving hiervan, in aan- 
merking komt voor de eerste prijs. 

Namens de jury. 




Anton Muller 



Ei !!5i HI iE! 



1 00 
1 10 
120 
1 30 
135 
140 
150 
160 
170 
IBO 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 

450 
460 
470 
480 
490 
5<I>C) 



*** 



GRAPHICS IN APPLESOFT *** 

BY H. BOSCH, TWENTE UNIVERSITY OF TECHNOLOGY 
ENSCHEDE. THE NETHERLANDS 
BEFORE USE ■■ BRUN GRAPHICS. OBJ ' , AT*9055. *94a5, SHAP 
BRUN GRAPHICS. OBJ' 
HOME : PRINT 

Y"! PRINT 



REM 
REM 
REM 
REM 
REM 
TEXT 

PRINT : PRINT " X 
I M = 200 : DIM X(IM),Y(IM) 
A = RND ( 1 ) :E = RND (A) 
YL = 0:YH = YL 
I=I+1:H=A*I: REM 

I F H - X ( J ) < A * 3 THEN 
J = J + 1:A* = "" 

IF PEEK (37) 

GOSUB 470: X (J) 
H = E * SIN (H 



DONE IN HELLO-PROGRAM 

POKE 34, ^T" 



* 10 



<3 - 2 « A) : REM 



= H: 
/ 3) 
YL = 
YH = 



IF YL > H THEN 
IF YH < H THEN 
GOSUB 470: PRINT A« 

Y(J) = H: REM STORE Y 
IF I < IM THEN 190 

IM = J:XH = X<J) 
REM «»«*»* GRAPHICAL 
HGR : VTAB 24 i SCALE= 



THEN 
REM 
/ (H 
H: A$ 
H; A* 



CALCULATE 
190: REM 

HOME 
STORE X 
+ A) : REM 
= " MIN": 
= " MAX" 



DISTANCE BETWEEN X -COORD I NATES 



CALCULATE 
GOTO 270 



0, XH: 
: i< 
1 TO 
O TO 
X ( I ) , 



VLIN YL 



VLIN 

IM 

4 

Yd) 



REM 



Sc HLIN 
8< HLIN 
FOR I = 
FOR J = 
& PLOT 
NEXT J, I 

& DRAW "TEKST LANGS AS 
8< DRAW "RATE CM/S",Y 
S< DRAW " PROBE " , 200, 20: 
FOR I = O TO 11: XDRAW 31 
ROT= 48: ?< DRAW "ROTATE" 
SCALE= 2: FOR J = 1 TO 4: 
A PLOT FACILITIES 
END 

REM FORMATTING 
H = INT (H * 100 +■ .5) / 
FOR K = 1 TO L: IF MID* 
PRINT ""; SPC( 6 - K) ;H; 
RETURN 



PART ****** 
li ROT= O: HCCLOR= 3 
- . S' * YH, YH: REM 
CLOSED GRAPH 



SCALE AND DRAW AXES 



- (J * YH) / 5, J: REM USE ALL PLOTCODES 



,X: REM TEXT ALONG X-AXfS 

REM TEXT ALONG Y-AX£S 
REM TEXT AT 200,20 

REM INVERSE MODE 



NEXT : 
245, 60 
PLOT 



XH / (1 + J>,YH,J: NEXT : REM EXTF 



100:H* = 
<H*,K, 1 ) 
TAB< 10); 



STR* 



(H) :L = 
. " THEN 



LEN (H*) 
NEXT K 



u 



lOD 



SQ 



-SO - 



-inn 



+ -I- * 



oanni 



TEKBT LHNB5 R5 



10 



IS 



Figure 9 
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